# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 919136188 0
# Node ID 0c8191e60c8061abb674be49c9b6db6a5e01872b
# Parent  5960d6c4bf1054641a7253e239d50fb1a7d38f01
(compile-internal): Use save-selected-window.

diff -r 5960d6c4bf10 -r 0c8191e60c80 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Tue Feb 16 03:07:34 1999 +0000
+++ b/lisp/progmodes/compile.el	Tue Feb 16 03:36:28 1999 +0000
@@ -816,10 +816,9 @@
 		   (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)))