diff options
| author | Richard M. Stallman | 1995-01-20 23:45:34 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-01-20 23:45:34 +0000 |
| commit | 4dba7b41a451b8348f9fddead74f9dcbaefeb542 (patch) | |
| tree | 371c2ad06771471f294f4dcc488d41d1a8cd5f84 | |
| parent | e0585c647b9fdbfbbad0ed920e3bd2db056eaadc (diff) | |
| download | emacs-4dba7b41a451b8348f9fddead74f9dcbaefeb542.tar.gz emacs-4dba7b41a451b8348f9fddead74f9dcbaefeb542.zip | |
(compile-internal): Force redisplay on compilation
buffer before executing compile process.
| -rw-r--r-- | lisp/progmodes/compile.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 5317aeb3b8c..4cd464e1c2a 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -398,6 +398,7 @@ Returns the compilation buffer created." | |||
| 398 | (cons proc compilation-in-progress))) | 398 | (cons proc compilation-in-progress))) |
| 399 | ;; No asynchronous processes available | 399 | ;; No asynchronous processes available |
| 400 | (message (format "Executing `%s'..." command)) | 400 | (message (format "Executing `%s'..." command)) |
| 401 | (sit-for 0) ;; Force redisplay | ||
| 401 | (let ((status (call-process shell-file-name nil outbuf nil "-c" | 402 | (let ((status (call-process shell-file-name nil outbuf nil "-c" |
| 402 | command)))) | 403 | command)))) |
| 403 | (message (format "Executing `%s'...done" command))))) | 404 | (message (format "Executing `%s'...done" command))))) |