Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

; * lisp/replace.el (occur-1): Use seq-some.

Browse source 
Copyright-paperwork-exempt: yes
This commit is contained in:
William Theesfeld 2026-06-05 15:50:01 -04:00 committed by Sean Whitton
parent fa528b4e5c
commit 31eaf18276
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/replace.el
View file

@ -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)))