/[emacs]/emacs/lisp/iswitchb.el
ViewVC logotype

Diff of /emacs/lisp/iswitchb.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.55 by dak, Sun Aug 22 10:58:16 2004 UTC revision 1.56 by eliz, Sat Jun 4 18:50:38 2005 UTC
# Line 889  BUFFER-LIST can be list of buffers or li Line 889  BUFFER-LIST can be list of buffers or li
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)

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26