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

making loop safer.

Browse Source
This commit is contained in:
Kazu Yamamoto 2015-09-14 13:07:51 +09:00 committed by Daniel Gröber
parent 55f278853a
commit 71c8361911
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

@ -122,7 +122,7 @@
(insert string) (insert string)
(goto-char (point-min)) (goto-char (point-min))
(let ((cont t) end out) (let ((cont t) end out)
(while (and cont (not (eobp))) (while (and cont (not (eobp)) ghc-process-running)
(cond (cond
((looking-at "^O: ") ((looking-at "^O: ")
(setq out t)) (setq out t))
@ -170,7 +170,8 @@
(setq ghc-process-running nil))))))) (setq ghc-process-running nil)))))))
(defun ghc-process-sentinel (_process _event) (defun ghc-process-sentinel (_process _event)
(setq ghc-process-running nil)) (setq ghc-process-running nil)
(setq ghc-process-file-mapping nil))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;