Displaying "-:-" when checking.

2014-03-31 12:08:17 +09:00 · 2014-03-31 12:08:17 +09:00 · 2cfcf60789
commit 2cfcf60789
parent 2dca76d0a1
1 changed files with 2 additions and 0 deletions
--- a/elisp/ghc-check.el
+++ b/elisp/ghc-check.el
@ -45,6 +45,8 @@
 (ghc-defstruct hilit-info file line col msg err)

 (defun ghc-check-send ()
+  (with-current-buffer ghc-process-original-buffer
+    (setq mode-line-process " -:-"))
  (if ghc-check-command
      (let ((opts (ghc-haskell-list-of-string ghc-hlint-options)))
 	(if opts