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 | fe347b507a42ab4a9f9dd2a049b9cd59740e2c11 (patch) | |
| tree | 88db608dff21447e42f7b3c7e6356313e2e5817a /lisp/diff.el | |
| parent | dff82a4ae8558de2bb43d931dd8316b283bc0b10 (diff) | |
| download | emacs-fe347b507a42ab4a9f9dd2a049b9cd59740e2c11.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) |