changeset 5542:004856d1b311

(diff): Select the differences buffer.
author Richard M. Stallman <rms@gnu.org>
date Sun, 09 Jan 1994 22:39:21 +0000
parents b203ef787d9c
children dbc1d920ef5c
files lisp/diff.el
diffstat 1 files changed, 11 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- 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