From 01c504479b801c46c5963b42f213820193ad388b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 3 Apr 1999 14:04:39 +0000 Subject: [PATCH] (compilation-handle-exit): Do right thing if (car status) doesn't end in a newline. --- lisp/progmodes/compile.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.39.2