changeset 13819:57cd7ef01dc7

(compile-internal): On systems with no asynchronous processes: do relevant parts of compilation-sentinel after the process exits; make modeline during and after compilation be similar to what compilation-sentinel displays.
author Richard M. Stallman <rms@gnu.org>
date Sat, 23 Dec 1995 07:13:31 +0000
parents 0d1de22afac0
children 8d33da3d3899
files lisp/progmodes/compile.el
diffstat 1 files changed, 26 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/compile.el	Sat Dec 23 06:57:14 1995 +0000
+++ b/lisp/progmodes/compile.el	Sat Dec 23 07:13:31 1995 +0000
@@ -436,10 +436,34 @@
 		    (cons proc compilation-in-progress)))
 	  ;; No asynchronous processes available
 	  (message (format "Executing `%s'..." command))
+	  ;; Fake modeline display as if `start-process' were run.
+	  (setq mode-line-process ":run")
 	  (sit-for 0) ;; Force redisplay
 	  (let ((status (call-process shell-file-name nil outbuf nil "-c"
-				      command))))
-	  (message (format "Executing `%s'...done" command)))))
+				      command))
+		finish-msg)
+	    ;; Fake modeline after exit.
+	    (setq mode-line-process
+		  (cond ((numberp status) (format ":exit[%d]" status))
+			((stringp status) (format ":exit[-1: %s]" status))
+			(t ":exit[???]")))
+	    ;; Call `compilation-finish-function' as `compilation-sentinel'
+	    ;; would, and finish up the compilation buffer with the same
+	    ;; message we would get from `start-process'.
+	    (setq finish-msg
+		  (if (numberp status)
+		      (if (zerop status)
+			  "finished\n"
+			(format "exited abnormally with code %d\n" status))
+		    "exited abnormally with code -1\n"))
+	    (goto-char (point-max))
+	    (insert "\nCompilation " finish-msg)
+	    (forward-char -1)
+	    (insert " at " (substring (current-time-string) 0 19)) ; no year
+	    (forward-char 1)
+	    (if compilation-finish-function
+		(funcall compilation-finish-function outbuf finish-msg)))
+	(message (format "Executing `%s'...done" command)))))
     ;; Make it so the next C-x ` will use this buffer.
     (setq compilation-last-buffer outbuf)))