diff options
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/compile.el | 5 |
1 files 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) |