diff options
| author | Kim F. Storm | 2004-03-19 00:21:43 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2004-03-19 00:21:43 +0000 |
| commit | 043442b4f334fb29aa0a9085b5cf915ab0433bd7 (patch) | |
| tree | f39e45f3f78414d959bfc9e463775395d0a9f916 | |
| parent | 3f2c97ea216267a0c1d92f259b7cf96748817ae6 (diff) | |
| download | emacs-043442b4f334fb29aa0a9085b5cf915ab0433bd7.tar.gz emacs-043442b4f334fb29aa0a9085b5cf915ab0433bd7.zip | |
(compilation-start): Always set compilation-last-buffer and return it.
| -rw-r--r-- | lisp/progmodes/compile.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 8b820d07472..34611d3aa37 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -927,9 +927,9 @@ exited abnormally with code %d\n" | |||
| 927 | (if (buffer-local-value 'compilation-scroll-output outbuf) | 927 | (if (buffer-local-value 'compilation-scroll-output outbuf) |
| 928 | (save-selected-window | 928 | (save-selected-window |
| 929 | (select-window outwin) | 929 | (select-window outwin) |
| 930 | (goto-char (point-max))) | 930 | (goto-char (point-max)))) |
| 931 | ;; Make it so the next C-x ` will use this buffer. | 931 | ;; Make it so the next C-x ` will use this buffer. |
| 932 | (setq compilation-last-buffer outbuf)))) | 932 | (setq compilation-last-buffer outbuf))) |
| 933 | 933 | ||
| 934 | (defun compilation-set-window-height (window) | 934 | (defun compilation-set-window-height (window) |
| 935 | "Set the height of WINDOW according to `compilation-window-height'." | 935 | "Set the height of WINDOW according to `compilation-window-height'." |