diff options
Diffstat (limited to 'lisp/acdw.el')
-rw-r--r-- | lisp/acdw.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 603f46f..7cad67c 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el | |||
@@ -145,7 +145,10 @@ within a `with-current-buffer' form." | |||
145 | (let ((pred (or predicate t))) | 145 | (let ((pred (or predicate t))) |
146 | (dolist (buf (buffer-list)) | 146 | (dolist (buf (buffer-list)) |
147 | (with-current-buffer buf | 147 | (with-current-buffer buf |
148 | (when (if (fboundp pred) (funcall pred buf) pred) | 148 | (when (if (or (eq (car-safe pred) 'closure) |
149 | (fboundp pred)) | ||
150 | (funcall pred buf) | ||
151 | pred) | ||
149 | (funcall func)))))) | 152 | (funcall func)))))) |
150 | 153 | ||
151 | ;; https://github.com/cstby/emacs.d/blob/main/init.el#L67 | 154 | ;; https://github.com/cstby/emacs.d/blob/main/init.el#L67 |