Mercurial > emacs

changeset 24558:ea8a9509b52f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 7bc142e9e59f
children 7e59f6e590da
files lisp/progmodes/compile.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
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)