# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1017340104 0
# Node ID 9501986a69c8da7e564deed1d7ec4f3c99d5095f
# Parent  7213f46c80a0f8d45893ad91bdfa54acc7e6a321
(compilation-handle-exit):
If compilation-window-height is 0, display status in echo area.

diff -r 7213f46c80a0 -r 9501986a69c8 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Thu Mar 28 18:27:23 2002 +0000
+++ b/lisp/progmodes/compile.el	Thu Mar 28 18:28:24 2002 +0000
@@ -1148,6 +1148,9 @@
     ;; 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))