Fixing a race (#405).

2014-11-29 12:57:23 +09:00 · 2014-11-29 12:57:23 +09:00 · fb2dc5fca5
commit fb2dc5fca5
parent e487a366d8
1 changed files with 1 additions and 1 deletions
--- a/elisp/ghc-process.el
+++ b/elisp/ghc-process.el
@ -114,7 +114,7 @@
      (condition-case nil
 	  (let ((inhibit-quit nil))
 	    (while (null ghc-process-rendezvous)
-	      (accept-process-output pro)))
+	      (accept-process-output pro 0.1 nil t)))
 	(quit
 	 (setq ghc-process-running nil))))
    ghc-process-results))