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

diff --git a/lisp/replace.el b/lisp/replace.el
index bd9ba1dbe9628daf0363cacba44c4d5da693bb52..df58492f871b069153fd91ee043aaaa1a20d42a1 100644 (file)
--- 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))