aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2005-10-04 20:27:58 +0000
committerRichard M. Stallman2005-10-04 20:27:58 +0000
commit1a1dd431f0af67dc07b96fcc785e084da670dfc5 (patch)
tree29a102ce6f1dec87977013ab4978f7f5f7b426b4
parent49efed3a0f168480c7adea79bd879242be2039f8 (diff)
downloademacs-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.el3
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
293example functions that filter buffernames." 293example 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)