From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 28 Mar 2002 18:28:24 +0000 (+0000)
Subject: (compilation-handle-exit):
X-Git-Tag: ttn-vms-21-2-B4~15930
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0eac1faa03b72ee73820b713b589f67109712249;p=emacs.git

(compilation-handle-exit):
If compilation-window-height is 0, display status in echo area.
---

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))