diff options
| author | Juanma Barranquero | 2019-12-01 10:41:49 +0100 |
|---|---|---|
| committer | Juanma Barranquero | 2019-12-01 10:41:49 +0100 |
| commit | eb452dfe95320fb0226af601537b98ee7945f12e (patch) | |
| tree | 480cf44c67763194e8f9403d525a973606d0613c | |
| parent | f22501185e7d5885270eadb5dc32ef267153f2ac (diff) | |
| download | emacs-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.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 | |||
| 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 |