From 4dba7b41a451b8348f9fddead74f9dcbaefeb542 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 20 Jan 1995 23:45:34 +0000 Subject: [PATCH] (compile-internal): Force redisplay on compilation buffer before executing compile process. --- lisp/progmodes/compile.el | 1 + 1 file changed, 1 insertion(+) 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." (cons proc compilation-in-progress))) ;; No asynchronous processes available (message (format "Executing `%s'..." command)) + (sit-for 0) ;; Force redisplay (let ((status (call-process shell-file-name nil outbuf nil "-c" command)))) (message (format "Executing `%s'...done" command))))) -- 2.39.5