(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.

1 files changed, 26 insertions, 2 deletions

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index b093158dcea..b4db10e3082 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -436,10 +436,34 @@ Returns the compilation buffer created."
                     (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)))