diff options
| author | Richard M. Stallman <rms@gnu.org> | 1999-04-03 14:04:39 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1999-04-03 14:04:39 +0000 |
| commit | 01c504479b801c46c5963b42f213820193ad388b (patch) | |
| tree | 15ceca89eff5ef0cb272d10acee17a3cd85cd8ed /lisp/progmodes | |
| parent | 919c7723dee863addb97819f67d283d6bed84c6f (diff) | |
| download | emacs-01c504479b801c46c5963b42f213820193ad388b.tar.gz | |
(compilation-handle-exit): Do right thing
if (car status) doesn't end in a newline.
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) |