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

fixing a bug of ghc-debug.

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