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

setting sentinel.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-05-14 06:39:50 +09:00
parent 7d81a357f7
commit 94c4ae205d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
elisp/ghc-process.el
View File

@ -65,6 +65,7 @@
(defun ghc-start-process (name buf) (defun ghc-start-process (name buf)
(let ((pro (start-file-process name buf ghc-interactive-command "-b" "\n" "-l"))) (let ((pro (start-file-process name buf ghc-interactive-command "-b" "\n" "-l")))
(set-process-filter pro 'ghc-process-filter) (set-process-filter pro 'ghc-process-filter)
(set-process-sentinel pro 'ghc-process-sentinel)
(set-process-query-on-exit-flag pro nil) (set-process-query-on-exit-flag pro nil)
pro)) pro))
@ -94,6 +95,9 @@
(insert-buffer-substring cbuf)))) (insert-buffer-substring cbuf))))
(setq ghc-process-running nil))))))) (setq ghc-process-running nil)))))))
(defun ghc-process-sentinel (process event)
(setq ghc-process-running nil))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar ghc-process-rendezvous nil) (defvar ghc-process-rendezvous nil)