# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 841072917 0
# Node ID e4d0cf418b2bf85b8fd3a4fbc47ce67734cf74be
# Parent  c729af982039cc999f486f9e11eefd2d1349f5c9
(diff): Don't pop to *diff* buffer.  Change bogus
unwind-protect to save-excursion.

diff -r c729af982039 -r e4d0cf418b2b lisp/diff.el
--- a/lisp/diff.el	Mon Aug 26 15:15:02 1996 +0000
+++ b/lisp/diff.el	Mon Aug 26 15:21:57 1996 +0000
@@ -197,7 +197,7 @@
   (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 @@
 		(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)