# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 758155161 0
# Node ID 004856d1b311495056310336d089d7e57ace2df9
# Parent  b203ef787d9ca921f023968c9ea74ddbb453830c
(diff): Select the differences buffer.

diff -r b203ef787d9c -r 004856d1b311 lisp/diff.el
--- a/lisp/diff.el	Sun Jan 09 22:36:46 1994 +0000
+++ b/lisp/diff.el	Sun Jan 09 22:39:21 1994 +0000
@@ -216,18 +216,17 @@
 		(compile-internal command
 				  "No more differences" "Diff"
 				  'diff-parse-differences))
-	  (save-excursion
-	    (set-buffer buf)
-	    (set (make-local-variable 'diff-old-file) old)
-	    (set (make-local-variable 'diff-new-file) new)
-	    (set (make-local-variable 'diff-old-temp-file) old-alt)
-	    (set (make-local-variable 'diff-new-temp-file) new-alt)
-	    (set (make-local-variable 'compilation-finish-function)
-		 (function (lambda (buff msg)
-			     (if diff-old-temp-file
-				 (delete-file diff-old-temp-file))
-			     (if diff-new-temp-file
-				 (delete-file diff-new-temp-file))))))
+	  (pop-to-buffer buf)
+	  (set (make-local-variable 'diff-old-file) old)
+	  (set (make-local-variable 'diff-new-file) new)
+	  (set (make-local-variable 'diff-old-temp-file) old-alt)
+	  (set (make-local-variable 'diff-new-temp-file) new-alt)
+	  (set (make-local-variable 'compilation-finish-function)
+	       (function (lambda (buff msg)
+			   (if diff-old-temp-file
+			       (delete-file diff-old-temp-file))
+			   (if diff-new-temp-file
+			       (delete-file diff-new-temp-file)))))
 	  buf))))
 
 ;;;###autoload