]> git.eshelyaron.com Git - emacs.git/commitdiff
ibuffer-mark-by-content-regexp: don't depend on `cl-some'
authorJuanma Barranquero <lekktu@gmail.com>
Sun, 1 Dec 2019 09:41:49 +0000 (10:41 +0100)
committerJuanma Barranquero <lekktu@gmail.com>
Sun, 1 Dec 2019 09:41:49 +0000 (10:41 +0100)
* 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.

lisp/ibuf-ext.el

index de3035e9d040f0a46fbc3522d5390c1c5a85d079..375090e09c3f670f77642c81a8af42c05ebdb2b9 100644 (file)
@@ -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