Fix a subtle bug in +mapc-some-buffers

2022-05-05 18:41:48 -05:00 · 2022-05-05 18:41:48 -05:00 · f6512b78a2
parent f0febf6814
commit f6512b78a2
1 changed files with 1 additions and 2 deletions
--- a/lisp/acdw.el
+++ b/lisp/acdw.el
@ -107,8 +107,7 @@ on buffers derived from one of the modes in PREDICATE."
  (let ((pred (or predicate t)))
    (dolist (buf (buffer-list))
      (with-current-buffer buf
-        (when (cond ((or (eq (car-safe pred) 'closure)
-                         (fboundp pred))
+        (when (cond ((functionp pred)
                     (funcall pred))
                    ((listp pred)
                     (apply #'derived-mode-p pred))