Mercurial > emacs
changeset 24326:0c8191e60c80
(compile-internal): Use save-selected-window.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 16 Feb 1999 03:36:28 +0000 |
parents | 5960d6c4bf10 |
children | 6f70c8b3ea9a |
files | lisp/progmodes/compile.el |
diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)))