From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 26 Aug 1996 15:21:57 +0000 (+0000)
Subject: (diff): Don't pop to *diff* buffer.  Change bogus
X-Git-Tag: emacs-20.1~4012
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f748a354fa98c0d5550485b694984352c0cf24a;p=emacs.git

(diff): Don't pop to *diff* buffer.  Change bogus
unwind-protect to save-excursion.
---

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)