mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

(iswitchb-get-matched-buffers): Handle invalid-regexp errors in

Browse Source 
post-command-hook.
This commit is contained in:
Eli Zaretskii 2005-06-04 18:50:38 +00:00
parent 94d4bafbec
commit 2cf248ab2e
1 changed files with 18 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lisp/iswitchb.el
View File

@ -889,22 +889,27 @@ BUFFER-LIST can be list of buffers or list of strings."
(do-string (stringp (car list)))
name
ret)
(mapcar
(lambda (x)
(catch 'invalid-regexp
(mapcar
(lambda (x)
(if do-string
(setq name x) ;We already have the name
(setq name (buffer-name x)))
(if do-string
(setq name x) ;We already have the name
(setq name (buffer-name x)))
(cond
((and (or (and string-format (string-match regexp name))
(and (null string-format)
(string-match (regexp-quote regexp) name)))
(cond
((and (or (and string-format
(condition-case error
(string-match regexp name)
(invalid-regexp
(throw 'invalid-regexp (setq ret (cdr error))))))
(and (null string-format)
(string-match (regexp-quote regexp) name)))
(not (iswitchb-ignore-buffername-p name)))
(setq ret (cons name ret))
)))
list)
(not (iswitchb-ignore-buffername-p name)))
(setq ret (cons name ret))
)))
list))
ret))
(defun iswitchb-ignore-buffername-p (bufname)