t of (sit-for 0.1 t) has a bug, so do not use it.

This commit is contained in:
Kazu Yamamoto 2014-04-28 09:13:14 +09:00
parent 2733f94a52
commit 248a999f99

View File

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