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

Yet another fix for #405.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-12-01 11:44:39 +09:00
parent fb2dc5fca5
commit bf085ce8f1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
elisp/ghc-process.el
View File

@ -111,9 +111,11 @@
(setq ghc-process-results nil) (setq ghc-process-results nil)
(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)))
;; ghc-process-running is now t.
;; But if the process exits abnormally, it is set to nil.
(condition-case nil (condition-case nil
(let ((inhibit-quit nil)) (let ((inhibit-quit nil))
(while (null ghc-process-rendezvous) (while (and (null ghc-process-rendezvous) ghc-process-running)
(accept-process-output pro 0.1 nil t))) (accept-process-output pro 0.1 nil t)))
(quit (quit
(setq ghc-process-running nil)))) (setq ghc-process-running nil))))