Mercurial > emacs
comparison lisp/iswitchb.el @ 65833:fca34be2db31
(iswitchb-buffer-ignore): Label it risky.
(iswitchb-ignore-buffername-p): Use `functionp'
instead of `fboundp' in order to allow for anonymous functions.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 04 Oct 2005 20:27:58 +0000 |
| parents | 4d1085b02d64 |
| children | d39ae3be63d4 aa89c814f853 |
comparison
equal
deleted
inserted
replaced
| 65832:5159ee08b219 | 65833:fca34be2db31 |
|---|---|
| 291 For example, traditional behavior is not to list buffers whose names begin | 291 For example, traditional behavior is not to list buffers whose names begin |
| 292 with a space, for which the regexp is `^ '. See the source file for | 292 with a space, for which the regexp is `^ '. See the source file for |
| 293 example functions that filter buffernames." | 293 example functions that filter buffernames." |
| 294 :type '(repeat (choice regexp function)) | 294 :type '(repeat (choice regexp function)) |
| 295 :group 'iswitchb) | 295 :group 'iswitchb) |
| 296 (put 'iswitchb-buffer-ignore 'risky-local-variable t) | |
| 296 | 297 |
| 297 (defcustom iswitchb-max-to-show nil | 298 (defcustom iswitchb-max-to-show nil |
| 298 "*If non-nil, limit the number of names shown in the minibuffer. | 299 "*If non-nil, limit the number of names shown in the minibuffer. |
| 299 If this value is N, and N is greater than the number of matching | 300 If this value is N, and N is greater than the number of matching |
| 300 buffers, the first N/2 and the last N/2 matching buffers are | 301 buffers, the first N/2 and the last N/2 matching buffers are |
| 940 ((stringp nextstr) | 941 ((stringp nextstr) |
| 941 (if (string-match nextstr bufname) | 942 (if (string-match nextstr bufname) |
| 942 (progn | 943 (progn |
| 943 (setq ignorep t) | 944 (setq ignorep t) |
| 944 (setq re-list nil)))) | 945 (setq re-list nil)))) |
| 945 ((fboundp nextstr) | 946 ((functionp nextstr) |
| 946 (if (funcall nextstr bufname) | 947 (if (funcall nextstr bufname) |
| 947 (progn | 948 (progn |
| 948 (setq ignorep t) | 949 (setq ignorep t) |
| 949 (setq re-list nil))))) | 950 (setq re-list nil))))) |
| 950 (setq re-list (cdr re-list))) | 951 (setq re-list (cdr re-list))) |