Mercurial > emacs
comparison lisp/progmodes/compile.el @ 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 | 19ff0d2ea8e8 |
| children | f7017af1bd0b |
comparison
equal
deleted
inserted
replaced
| 55305:b1c52f4076c4 | 55306:3757f583f280 |
|---|---|
| 942 ;; No asynchronous processes available. | 942 ;; No asynchronous processes available. |
| 943 (message "Executing `%s'..." command) | 943 (message "Executing `%s'..." command) |
| 944 ;; Fake modeline display as if `start-process' were run. | 944 ;; Fake modeline display as if `start-process' were run. |
| 945 (setq mode-line-process ":run") | 945 (setq mode-line-process ":run") |
| 946 (force-mode-line-update) | 946 (force-mode-line-update) |
| 947 (sit-for 0) ; Force redisplay | |
| 947 (let ((status (call-process shell-file-name nil outbuf nil "-c" | 948 (let ((status (call-process shell-file-name nil outbuf nil "-c" |
| 948 command))) | 949 command))) |
| 949 (cond ((numberp status) | 950 (cond ((numberp status) |
| 950 (compilation-handle-exit 'exit status | 951 (compilation-handle-exit 'exit status |
| 951 (if (zerop status) | 952 (if (zerop status) |