Mercurial > emacs
diff lisp/diff.el @ 55117:9ef081d74155
(diff): Set default-directory in diff buffer.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Sat, 24 Apr 2004 18:17:04 +0000 |
| parents | 3619e67b00f4 |
| children | 3654c6b288e0 |
line wrap: on
line diff
--- a/lisp/diff.el Sat Apr 24 16:36:15 2004 +0000 +++ b/lisp/diff.el Sat Apr 24 18:17:04 2004 +0000 @@ -111,6 +111,7 @@ ,(shell-quote-argument (or new-alt new))) " ")) (buf (get-buffer-create "*Diff*")) + (thisdir default-directory) proc) (save-excursion (display-buffer buf) @@ -125,6 +126,7 @@ (diff ',old ',new ',switches ',no-async))) (set (make-local-variable 'diff-old-temp-file) old-alt) (set (make-local-variable 'diff-new-temp-file) new-alt) + (setq default-directory thisdir) (insert command "\n") (if (and (not no-async) (fboundp 'start-process)) (progn
