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

fixing a bug of ghc-debug.

This commit is contained in:
Kazu Yamamoto 2014-03-28 15:05:14 +09:00
parent 7fa3736bac
commit 2db2358a98
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
elisp/ghc-process.el
View File

@ -49,8 +49,9 @@
(let ((pro (ghc-get-process cpro name buf))
(cmd (funcall send)))
(process-send-string pro cmd)
(ghc-with-debug-buffer
(insert (format "%% %s" cmd)))))))))
(when ghc-debug
(ghc-with-debug-buffer
(insert (format "%% %s" cmd))))))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -77,9 +78,10 @@
(when (looking-at "^\\(OK\\|NG\\)$")
(goto-char (point-min))
(funcall ghc-process-callback)
(let ((cbuf (current-buffer)))
(ghc-with-debug-buffer
(insert-buffer-substring cbuf)))
(when ghc-debug
(let ((cbuf (current-buffer)))
(ghc-with-debug-buffer
(insert-buffer-substring cbuf))))
(setq ghc-process-running nil))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;