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

(discard-input) avoids getting stuck.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-04-28 21:27:27 +09:00
parent 411a584bb8
commit 0d494f3c8e
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
elisp/ghc-process.el
View File

@ -48,7 +48,8 @@
(process-send-string pro cmd) (process-send-string pro cmd)
(when ghc-debug (when ghc-debug
(ghc-with-debug-buffer (ghc-with-debug-buffer
(insert (format "%% %s" cmd)))))))))) (insert (format "%% %s" cmd))))
pro))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -100,9 +101,17 @@
(setq ghc-process-rendezvous nil) (setq ghc-process-rendezvous nil)
(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))
(ghc-with-process cmd 'ghc-process-callback nil hook) (let ((pro (ghc-with-process cmd 'ghc-process-callback nil hook)))
(while (null ghc-process-rendezvous) (condition-case nil
(sit-for 0.1)) (while (null ghc-process-rendezvous)
;; 0.1 is too fast for Emacs 24.4.
;; (sit-for 0.1 t) may get stuck when tooltip is displayed.
(sit-for 0.1)
;; (discard-input) avoids getting stuck.
(discard-input))
(quit
(with-current-buffer (process-buffer pro)
(setq ghc-process-running nil)))))
ghc-process-results) ghc-process-results)
(defun ghc-process-callback (status) (defun ghc-process-callback (status)