diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2019-12-01 10:41:49 +0100 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2019-12-01 10:41:49 +0100 |
| commit | eb452dfe95320fb0226af601537b98ee7945f12e (patch) | |
| tree | 480cf44c67763194e8f9403d525a973606d0613c /lisp/ibuf-ext.el | |
| parent | f22501185e7d5885270eadb5dc32ef267153f2ac (diff) | |
| download | emacs-eb452dfe95320fb0226af601537b98ee7945f12e.tar.gz | |
ibuffer-mark-by-content-regexp: don't depend on `cl-some'
* lisp/ibuf-ext.el (ibuffer-mark-by-content-regexp): Use `cl-dolist'
instead of `cl-some' to avoid a run-time dependency on cl-lib that
triggers an unreported bug similar to bug#38430.
Diffstat (limited to 'lisp/ibuf-ext.el')
| -rw-r--r-- | lisp/ibuf-ext.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index de3035e9d04..375090e09c3 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el @@ -1861,8 +1861,9 @@ Otherwise buffers whose name matches an element of (cond ((and (not all-buffers) (or (memq mode ibuffer-never-search-content-mode) - (cl-some (lambda (x) (string-match x (buffer-name buf))) - ibuffer-never-search-content-name))) + (cl-dolist (x ibuffer-never-search-content-name nil) + (when-let ((found (string-match x (buffer-name buf)))) + (cl-return found))))) (setq res nil)) (t (with-current-buffer buf |