aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/diff.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/diff.el')
-rw-r--r--lisp/diff.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/diff.el b/lisp/diff.el
index 231130db212..c985b66036e 100644
--- a/lisp/diff.el
+++ b/lisp/diff.el
@@ -36,7 +36,7 @@
36 36
37;;;###autoload 37;;;###autoload
38(defcustom diff-switches "-c" 38(defcustom diff-switches "-c"
39 "*A string or list of strings specifying switches to be be passed to diff." 39 "*A string or list of strings specifying switches to be passed to diff."
40 :type '(choice string (repeat string)) 40 :type '(choice string (repeat string))
41 :group 'diff) 41 :group 'diff)
42 42
@@ -111,6 +111,7 @@ With prefix arg, prompt for diff switches."
111 ,(shell-quote-argument (or new-alt new))) 111 ,(shell-quote-argument (or new-alt new)))
112 " ")) 112 " "))
113 (buf (get-buffer-create "*Diff*")) 113 (buf (get-buffer-create "*Diff*"))
114 (thisdir default-directory)
114 proc) 115 proc)
115 (save-excursion 116 (save-excursion
116 (display-buffer buf) 117 (display-buffer buf)
@@ -125,6 +126,7 @@ With prefix arg, prompt for diff switches."
125 (diff ',old ',new ',switches ',no-async))) 126 (diff ',old ',new ',switches ',no-async)))
126 (set (make-local-variable 'diff-old-temp-file) old-alt) 127 (set (make-local-variable 'diff-old-temp-file) old-alt)
127 (set (make-local-variable 'diff-new-temp-file) new-alt) 128 (set (make-local-variable 'diff-new-temp-file) new-alt)
129 (setq default-directory thisdir)
128 (insert command "\n") 130 (insert command "\n")
129 (if (and (not no-async) (fboundp 'start-process)) 131 (if (and (not no-async) (fboundp 'start-process))
130 (progn 132 (progn