NG contains an error.

2014-04-25 11:08:29 +09:00
parent 17b80ccc2f
commit f50e5229c4
4 changed files with 27 additions and 14 deletions
--- a/elisp/ghc-process.el
+++ b/elisp/ghc-process.el
@@ -72,7 +72,7 @@
    (goto-char (point-max))
    (insert string)
    (forward-line -1)
-    (when (looking-at "^\\(OK\\|NG\\)$")
+    (when (looking-at "^OK$\\|^NG ")
      (if ghc-process-hook (funcall ghc-process-hook))
      (goto-char (point-min))
      (funcall ghc-process-callback)