From: Eli Zaretskii Date: Sun, 2 May 2004 15:38:02 +0000 (+0000) Subject: (compilation-start): In the no-async-subprocesses branch, call X-Git-Tag: ttn-vms-21-2-B4~6461 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cf8f099f0a318f7888d9a99b4db820bb6bd6471a;p=emacs.git (compilation-start): In the no-async-subprocesses branch, call sit-for to give redisplay a chance to show the updated process status in the mode line. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0d214753a58..972ba721ffa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-05-02 Eli Zaretskii + + * progmodes/compile.el (compilation-start): In the + no-async-subprocesses branch, call sit-for to give redisplay a + chance to show the updated process status in the mode line. + 2004-05-01 Luc Teirlinck * ielm.el (ielm-prompt-read-only): Update docstring. diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index d31a93311b5..376136e33ae 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -944,6 +944,7 @@ Returns the compilation buffer created." ;; Fake modeline display as if `start-process' were run. (setq mode-line-process ":run") (force-mode-line-update) + (sit-for 0) ; Force redisplay (let ((status (call-process shell-file-name nil outbuf nil "-c" command))) (cond ((numberp status)