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

making loop safer.

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