diff options
| author | Richard M. Stallman | 1999-02-16 03:36:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1999-02-16 03:36:28 +0000 |
| commit | bccc6e3d9f4afdcf01eee130d6f42d096c270dad (patch) | |
| tree | 834a9b0059124effaff32c5ea29d8a8817698c6d | |
| parent | 8e70c858a75478a8e0277e220b7f1efda84c046d (diff) | |
| download | emacs-bccc6e3d9f4afdcf01eee130d6f42d096c270dad.tar.gz emacs-bccc6e3d9f4afdcf01eee130d6f42d096c270dad.zip | |
(compile-internal): Use save-selected-window.
| -rw-r--r-- | lisp/progmodes/compile.el | 5 |
1 files changed, 2 insertions, 3 deletions
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" | |||
| 816 | (compilation-handle-exit 'bizarre status status)))) | 816 | (compilation-handle-exit 'bizarre status status)))) |
| 817 | (message "Executing `%s'...done" command))) | 817 | (message "Executing `%s'...done" command))) |
| 818 | (if compilation-scroll-output | 818 | (if compilation-scroll-output |
| 819 | (let ((currbuf (current-buffer))) | 819 | (save-selected-window |
| 820 | (select-window outwin) | 820 | (select-window outwin) |
| 821 | (goto-char (point-max)) | 821 | (goto-char (point-max))))) |
| 822 | (select-window (get-buffer-window currbuf))))) | ||
| 823 | ;; Make it so the next C-x ` will use this buffer. | 822 | ;; Make it so the next C-x ` will use this buffer. |
| 824 | (setq compilation-last-buffer outbuf))) | 823 | (setq compilation-last-buffer outbuf))) |
| 825 | 824 | ||