Commit 01c50447 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(compilation-handle-exit): Do right thing

if (car status) doesn't end in a newline.
parent 919c7723
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment