diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-08-26 15:21:57 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-08-26 15:21:57 +0000 |
| commit | 9f748a354fa98c0d5550485b694984352c0cf24a (patch) | |
| tree | 51d3c2603a9188ce44a00175ecce3bd9783e2c5d /lisp/diff.el | |
| parent | 2a81150148a10acfb4e722148547695d74ec4257 (diff) | |
| download | emacs-9f748a354fa98c0d5550485b694984352c0cf24a.tar.gz | |
(diff): Don't pop to *diff* buffer. Change bogus
unwind-protect to save-excursion.
Diffstat (limited to 'lisp/diff.el')
| -rw-r--r-- | lisp/diff.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/diff.el b/lisp/diff.el index 4e8f829fdaf..2ec0a8b14bd 100644 --- a/lisp/diff.el +++ b/lisp/diff.el @@ -197,7 +197,7 @@ With prefix arg, prompt for diff switches." (let ((old-alt (file-local-copy old)) (new-alt (file-local-copy new)) buf) - (unwind-protect + (save-excursion (let ((command (mapconcat 'identity (append (list diff-command) @@ -220,7 +220,7 @@ With prefix arg, prompt for diff switches." (compile-internal command "No more differences" "Diff" 'diff-parse-differences)) - (pop-to-buffer buf) + (set-buffer buf) ;; Avoid frightening people with "abnormally terminated" ;; if diff finds differences. (set (make-local-variable 'compilation-exit-message-function) |