mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(occur): Copy default-directory to *Occur* buffer.

Browse source
This commit is contained in:
Richard M. Stallman 1995-03-21 19:57:36 +00:00
parent f1913a26cb
commit bdd610b25e
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/replace.el
View file

@ -344,6 +344,7 @@ It serves as a menu to find any of the occurrences in this buffer.
list-matching-lines-default-context-lines))
(let ((first t)
(buffer (current-buffer))
(dir default-directory)
(linenum 1)
(prevpos (point-min))
(final-context-start (make-marker)))
@ -354,6 +355,7 @@ It serves as a menu to find any of the occurrences in this buffer.
(with-output-to-temp-buffer "*Occur*"
(save-excursion
(set-buffer standard-output)
(setq default-directory dir)
;; We will insert the number of lines, and "lines", later.
(insert " matching ")
(let ((print-escape-newlines t))