889 |
(do-string (stringp (car list))) |
(do-string (stringp (car list))) |
890 |
name |
name |
891 |
ret) |
ret) |
892 |
(mapcar |
(catch 'invalid-regexp |
893 |
(lambda (x) |
(mapcar |
894 |
|
(lambda (x) |
895 |
|
|
896 |
(if do-string |
(if do-string |
897 |
(setq name x) ;We already have the name |
(setq name x) ;We already have the name |
898 |
(setq name (buffer-name x))) |
(setq name (buffer-name x))) |
899 |
|
|
900 |
(cond |
(cond |
901 |
((and (or (and string-format (string-match regexp name)) |
((and (or (and string-format |
902 |
(and (null string-format) |
(condition-case error |
903 |
(string-match (regexp-quote regexp) name))) |
(string-match regexp name) |
904 |
|
(invalid-regexp |
905 |
|
(throw 'invalid-regexp (setq ret (cdr error)))))) |
906 |
|
(and (null string-format) |
907 |
|
(string-match (regexp-quote regexp) name))) |
908 |
|
|
909 |
(not (iswitchb-ignore-buffername-p name))) |
(not (iswitchb-ignore-buffername-p name))) |
910 |
(setq ret (cons name ret)) |
(setq ret (cons name ret)) |
911 |
))) |
))) |
912 |
list) |
list)) |
913 |
ret)) |
ret)) |
914 |
|
|
915 |
(defun iswitchb-ignore-buffername-p (bufname) |
(defun iswitchb-ignore-buffername-p (bufname) |