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

2014-04-28 09:13:14 +09:00 · 2014-04-28 09:13:14 +09:00 · 248a999f99
commit 248a999f99
parent 2733f94a52
1 changed files with 1 additions and 1 deletions
--- a/elisp/ghc-process.el
+++ b/elisp/ghc-process.el
@ -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)