From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 16 Feb 1999 03:36:28 +0000 (+0000)
Subject: (compile-internal): Use save-selected-window.
X-Git-Tag: emacs-20.4~623
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bccc6e3d9f4afdcf01eee130d6f42d096c270dad;p=emacs.git

(compile-internal): Use save-selected-window.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 216efddb0a9..2e51b100684 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -816,10 +816,9 @@ exited abnormally with code %d\n"
 		   (compilation-handle-exit 'bizarre status status))))
 	  (message "Executing `%s'...done" command)))
       (if compilation-scroll-output
-          (let ((currbuf (current-buffer)))
+	  (save-selected-window
             (select-window outwin)
-            (goto-char (point-max))
-            (select-window (get-buffer-window currbuf)))))
+            (goto-char (point-max)))))
     ;; Make it so the next C-x ` will use this buffer.
     (setq compilation-last-buffer outbuf)))