diff options
| author | Case Duckworth | 2022-05-05 18:41:48 -0500 |
|---|---|---|
| committer | Case Duckworth | 2022-05-05 18:41:48 -0500 |
| commit | f6512b78a2858189ae66b750b020196b64110a18 (patch) | |
| tree | 90a199a6de0f44ae4472076e4bd0b9a5ae786dde | |
| parent | Change modeline (diff) | |
| download | emacs-f6512b78a2858189ae66b750b020196b64110a18.tar.gz emacs-f6512b78a2858189ae66b750b020196b64110a18.zip | |
Fix a subtle bug in +mapc-some-buffers
| -rw-r--r-- | lisp/acdw.el | 3 |
1 files changed, 1 insertions, 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." | |||
| 107 | (let ((pred (or predicate t))) | 107 | (let ((pred (or predicate t))) |
| 108 | (dolist (buf (buffer-list)) | 108 | (dolist (buf (buffer-list)) |
| 109 | (with-current-buffer buf | 109 | (with-current-buffer buf |
| 110 | (when (cond ((or (eq (car-safe pred) 'closure) | 110 | (when (cond ((functionp pred) |
| 111 | (fboundp pred)) | ||
| 112 | (funcall pred)) | 111 | (funcall pred)) |
| 113 | ((listp pred) | 112 | ((listp pred) |
| 114 | (apply #'derived-mode-p pred)) | 113 | (apply #'derived-mode-p pred)) |