From 31eaf1827651ea19a4f79d7d728a62ebb5c33f6c Mon Sep 17 00:00:00 2001 From: William Theesfeld Date: Fri, 5 Jun 2026 15:50:01 -0400 Subject: [PATCH] ; * lisp/replace.el (occur-1): Use seq-some. Copyright-paperwork-exempt: yes --- lisp/replace.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/replace.el b/lisp/replace.el index 4bb91fbd6a0..e7407869ca2 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1982,12 +1982,12 @@ See also `multi-occur'." (source-buffer-default-directory default-directory)) ;; Handle the case where one of the buffers we're searching is the ;; output buffer. Just rename it. - (when (member buf-name - ;; FIXME: Use cl-exists. - (mapcar - (lambda (boo) - (buffer-name (if (overlayp boo) (overlay-buffer boo) boo))) - active-bufs)) + (when (seq-some (lambda (boo) + (equal buf-name + (buffer-name (if (overlayp boo) + (overlay-buffer boo) + boo)))) + active-bufs) (with-current-buffer buf-name (rename-uniquely)))