Mercurial > emacs
changeset 55306:3757f583f280
(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.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sun, 02 May 2004 15:36:45 +0000 |
| parents | b1c52f4076c4 |
| children | 56281773d450 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 1 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Sun May 02 01:49:08 2004 +0000 +++ b/lisp/progmodes/compile.el Sun May 02 15:36:45 2004 +0000 @@ -944,6 +944,7 @@ ;; 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)