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

ensuring that ghc-mod is executed on the root dir.

Browse Source
This commit is contained in:
Kazu Yamamoto 2015-09-15 11:31:54 +09:00
parent 0aa3655e08
commit ad5a343d2e
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
elisp/ghc-process.el
View File

@ -87,13 +87,14 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ghc-get-process (cpro name buf) (defun ghc-get-process (cpro name buf)
(cond (let ((default-directory name))
((not cpro) (cond
(ghc-start-process name buf)) ((not cpro)
((not (eq (process-status cpro) 'run)) (ghc-start-process name buf))
(delete-process cpro) ((not (eq (process-status cpro) 'run))
(ghc-start-process name buf)) (delete-process cpro)
(t cpro))) (ghc-start-process name buf))
(t cpro))))
(defun ghc-start-process (name buf) (defun ghc-start-process (name buf)
(let* ((process-connection-type nil) ;; using PIPE due to ^D (let* ((process-connection-type nil) ;; using PIPE due to ^D