diff options
Diffstat (limited to 'lisp/diff.el')
| -rw-r--r-- | lisp/diff.el | 4 |
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 |