diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-03-21 19:57:36 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-03-21 19:57:36 +0000 |
| commit | bdd610b25ed4cbef2f214bf277efc4299a04153d (patch) | |
| tree | f535809c1205d1422b736ec43d9d23c24435a60b /lisp/replace.el | |
| parent | f1913a26cb6d1aab314e6f1fb91b191141c1c806 (diff) | |
| download | emacs-bdd610b25ed4cbef2f214bf277efc4299a04153d.tar.gz emacs-bdd610b25ed4cbef2f214bf277efc4299a04153d.tar.bz2 emacs-bdd610b25ed4cbef2f214bf277efc4299a04153d.zip | |
(occur): Copy default-directory to *Occur* buffer.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index bd9ba1dbe96..df58492f871 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -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)) |