Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 24557:7bc142e9e59f | 24558:ea8a9509b52f |
|---|---|
| 1013 (opoint (point))) | 1013 (opoint (point))) |
| 1014 ;; Record where we put the message, so we can ignore it | 1014 ;; Record where we put the message, so we can ignore it |
| 1015 ;; later on. | 1015 ;; later on. |
| 1016 (goto-char omax) | 1016 (goto-char omax) |
| 1017 (insert ?\n mode-name " " (car status)) | 1017 (insert ?\n mode-name " " (car status)) |
| 1018 (forward-char -1) | 1018 (if (bolp) |
| 1019 (forward-char -1)) | |
| 1019 (insert " at " (substring (current-time-string) 0 19)) | 1020 (insert " at " (substring (current-time-string) 0 19)) |
| 1020 (forward-char 1) | 1021 (goto-char (point-max)) |
| 1021 (setq mode-line-process (format ":%s [%s]" process-status (cdr status))) | 1022 (setq mode-line-process (format ":%s [%s]" process-status (cdr status))) |
| 1022 ;; Force mode line redisplay soon. | 1023 ;; Force mode line redisplay soon. |
| 1023 (force-mode-line-update) | 1024 (force-mode-line-update) |
| 1024 (if (and opoint (< opoint omax)) | 1025 (if (and opoint (< opoint omax)) |
| 1025 (goto-char opoint)) | 1026 (goto-char opoint)) |