(compilation-handle-exit): Do right thing

if (car status) doesn't end in a newline.

(compilation-handle-exit): Do right thing
if (car status) doesn't end in a newline.
01c50447 · Richard M. Stallman · 919c7723 · 01c50447
Commit 01c50447 authored Apr 03, 1999 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 3 additions and 2 deletions

lisp/progmodes/compile.el lisp/progmodes/compile.el +3 -2

No files found.
--- 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)