From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 3 Apr 1999 14:04:39 +0000 (+0000)
Subject: (compilation-handle-exit): Do right thing
X-Git-Tag: emacs-20.4~391
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=01c504479b801c46c5963b42f213820193ad388b;p=emacs.git

(compilation-handle-exit): Do right thing
if (car status) doesn't end in a newline.
---

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 2e51b100684..a426ea64757 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -1015,9 +1015,10 @@ Turning the mode on runs the normal hook `compilation-minor-mode-hook'."
     ;; later on.
     (goto-char omax)
     (insert ?\n mode-name " " (car status))
-    (forward-char -1)
+    (if (bolp)
+	(forward-char -1))
     (insert " at " (substring (current-time-string) 0 19))
-    (forward-char 1)
+    (goto-char (point-max))
     (setq mode-line-process (format ":%s [%s]" process-status (cdr status)))
     ;; Force mode line redisplay soon.
     (force-mode-line-update)