aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2019-12-01 10:41:49 +0100
committerJuanma Barranquero2019-12-01 10:41:49 +0100
commiteb452dfe95320fb0226af601537b98ee7945f12e (patch)
tree480cf44c67763194e8f9403d525a973606d0613c
parentf22501185e7d5885270eadb5dc32ef267153f2ac (diff)
downloademacs-eb452dfe95320fb0226af601537b98ee7945f12e.tar.gz
emacs-eb452dfe95320fb0226af601537b98ee7945f12e.zip
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.
-rw-r--r--lisp/ibuf-ext.el5
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
1861 (cond ((and (not all-buffers) 1861 (cond ((and (not all-buffers)
1862 (or 1862 (or
1863 (memq mode ibuffer-never-search-content-mode) 1863 (memq mode ibuffer-never-search-content-mode)
1864 (cl-some (lambda (x) (string-match x (buffer-name buf))) 1864 (cl-dolist (x ibuffer-never-search-content-name nil)
1865 ibuffer-never-search-content-name))) 1865 (when-let ((found (string-match x (buffer-name buf))))
1866 (cl-return found)))))
1866 (setq res nil)) 1867 (setq res nil))
1867 (t 1868 (t
1868 (with-current-buffer buf 1869 (with-current-buffer buf