rescue the coming Emacs 24.4.

This commit is contained in:
Kazu Yamamoto 2014-04-24 17:14:10 +09:00
parent 390c509144
commit e2369e6772

View File

@ -94,7 +94,7 @@
(setq ghc-process-num-of-results (or n 1)) (setq ghc-process-num-of-results (or n 1))
(ghc-with-process cmd 'ghc-process-callback nil hook) (ghc-with-process cmd 'ghc-process-callback nil hook)
(while (null ghc-process-rendezvous) (while (null ghc-process-rendezvous)
(sit-for 0.01)) (sit-for 0.1 t))
ghc-process-results) ghc-process-results)
(defun ghc-process-callback () (defun ghc-process-callback ()