From f6512b78a2858189ae66b750b020196b64110a18 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 5 May 2022 18:41:48 -0500 Subject: Fix a subtle bug in +mapc-some-buffers --- lisp/acdw.el | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lisp/acdw.el b/lisp/acdw.el index a673e4a..7ef745d 100644 --- 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)) -- cgit 1.4.1-21-gabe81