# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1082830624 0
# Node ID 9ef081d74155859d5fc8a25794fbe84d21dff022
# Parent  4eaffc5a495e797692acb63d9414e6f27cf6c25b
(diff): Set default-directory in diff buffer.

diff -r 4eaffc5a495e -r 9ef081d74155 lisp/diff.el
--- 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