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

Merge pull request #408 from iquiw/master

Browse Source 
Remove timeout from loop in ghc-sync-process
This commit is contained in:
Kazu Yamamoto 2014-11-27 10:25:48 +09:00
commit e487a366d8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
elisp/ghc-process.el
View File

@ -112,8 +112,9 @@
(setq ghc-process-num-of-results (or n 1)) (setq ghc-process-num-of-results (or n 1))
(let ((pro (ghc-with-process cmd 'ghc-process-callback nil hook))) (let ((pro (ghc-with-process cmd 'ghc-process-callback nil hook)))
(condition-case nil (condition-case nil
(while (and (null ghc-process-rendezvous) (let ((inhibit-quit nil))
(accept-process-output pro 2))) (while (null ghc-process-rendezvous)
(accept-process-output pro)))
(quit (quit
(setq ghc-process-running nil)))) (setq ghc-process-running nil))))
ghc-process-results)) ghc-process-results))