diff options
| author | Richard M. Stallman | 2005-10-04 20:27:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-10-04 20:27:58 +0000 |
| commit | 1a1dd431f0af67dc07b96fcc785e084da670dfc5 (patch) | |
| tree | 29a102ce6f1dec87977013ab4978f7f5f7b426b4 | |
| parent | 49efed3a0f168480c7adea79bd879242be2039f8 (diff) | |
| download | emacs-1a1dd431f0af67dc07b96fcc785e084da670dfc5.tar.gz emacs-1a1dd431f0af67dc07b96fcc785e084da670dfc5.zip | |
(iswitchb-buffer-ignore): Label it risky.
(iswitchb-ignore-buffername-p): Use `functionp'
instead of `fboundp' in order to allow for anonymous functions.
| -rw-r--r-- | lisp/iswitchb.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el index b13f2d0bb5a..80f7dbcb199 100644 --- a/lisp/iswitchb.el +++ b/lisp/iswitchb.el | |||
| @@ -293,6 +293,7 @@ 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. |
| @@ -942,7 +943,7 @@ BUFFER-LIST can be list of buffers or list of strings." | |||
| 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) |