Mercurial > emacs
diff lisp/progmodes/compile.el @ 24558:ea8a9509b52f
(compilation-handle-exit): Do right thing
if (car status) doesn't end in a newline.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 03 Apr 1999 14:04:39 +0000 |
parents | 0c8191e60c80 |
children | a79624ba3e74 |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Fri Apr 02 16:35:33 1999 +0000 +++ b/lisp/progmodes/compile.el Sat Apr 03 14:04:39 1999 +0000 @@ -1015,9 +1015,10 @@ ;; 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)