hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-28 09:13:14 +09:00
parent 2733f94a52
commit 248a999f99
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
elisp/ghc-process.el
View File

@ -102,7 +102,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.1 t)) (sit-for 0.1))
ghc-process-results) ghc-process-results)
(defun ghc-process-callback (status) (defun ghc-process-callback (status)