mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-20 18:17:20 +00:00
Code Issues Releases Activity

Update default-directory in occur buffer (bug#39608)

Browse Source 
* lisp/replace.el (occur-1): Update default-directory in occur buffer.

Copyright-paperwork-exempt: yes
This commit is contained in:
Stéphane Boucher 2020-03-04 02:05:55 +02:00 committed by Juri Linkov
parent b48142ba19
commit 21ebfa1dd8
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/replace.el
View File

@ -1576,7 +1576,8 @@ See also `multi-occur'."
(and (overlayp boo)
(overlay-buffer boo)))
boo))
bufs))))
bufs)))
(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
@ -1593,6 +1594,9 @@ See also `multi-occur'."
(setq occur-buf (get-buffer-create buf-name))
(with-current-buffer occur-buf
;; Make the default-directory of the *Occur* buffer match that of
;; the buffer where the occurences come from
(setq default-directory source-buffer-default-directory)
(if (stringp nlines)
(fundamental-mode) ;; This is for collect operation.
(occur-mode))