diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-03-28 18:28:24 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-03-28 18:28:24 +0000 |
| commit | 0eac1faa03b72ee73820b713b589f67109712249 (patch) | |
| tree | 263f42e9c556e261d8e1758bff3fd319c7fa0a4d /lisp/progmodes/compile.el | |
| parent | a615252bebb6a65466d63630cbac9d668f1e5430 (diff) | |
| download | emacs-0eac1faa03b72ee73820b713b589f67109712249.tar.gz | |
(compilation-handle-exit):
If compilation-window-height is 0, display status in echo area.
Diffstat (limited to 'lisp/progmodes/compile.el')
| -rw-r--r-- | lisp/progmodes/compile.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 6987293ea0f..f9296235add 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1148,6 +1148,9 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'." ;; later on. (goto-char omax) (insert ?\n mode-name " " (car status)) + (if (and (numberp compilation-window-height) + (zerop compilation-window-height)) + (message "%s" (cdr status))) (if (bolp) (forward-char -1)) (insert " at " (substring (current-time-string) 0 19)) |