mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(compilation-handle-exit): Do right thing

Browse source 
if (car status) doesn't end in a newline.
This commit is contained in:
Richard M. Stallman 1999-04-03 14:04:39 +00:00
parent 919c7723de
commit 01c504479b
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/progmodes/compile.el
View file

@ -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)