Mercurial > emacs

changeset 11075:e1b564b50569

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(occur): Copy default-directory to *Occur* buffer.
author Richard M. Stallman <rms@gnu.org>
date Tue, 21 Mar 1995 19:57:36 +0000
parents 259db0e1a815
children 9d2cb049844b
files lisp/replace.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/replace.el	Tue Mar 21 06:16:35 1995 +0000
+++ b/lisp/replace.el	Tue Mar 21 19:57:36 1995 +0000
@@ -344,6 +344,7 @@
 		 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 @@
     (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))