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

using force-mode-line-update just in case.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-08-18 15:42:14 +09:00
parent 5a657b9df8
commit f799ff1ee8
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
elisp/ghc-check.el
View File

@ -107,10 +107,12 @@ nil does not display errors/warnings.
(let* ((errs (ghc-filter 'ghc-hilit-info-get-err infos)) (let* ((errs (ghc-filter 'ghc-hilit-info-get-err infos))
(elen (length errs)) (elen (length errs))
(wlen (- len elen))) (wlen (- len elen)))
(setq mode-line-process (format " %d:%d" elen wlen)))))))) (setq mode-line-process (format " %d:%d" elen wlen)))))
(force-mode-line-update))))
(t (t
(ghc-with-current-buffer ghc-process-original-buffer (ghc-with-current-buffer ghc-process-original-buffer
(setq mode-line-process " failed"))))) (setq mode-line-process " failed")
(force-mode-line-update)))))
(defun ghc-to-info (errs) (defun ghc-to-info (errs)
;; [^\t] to include \n. ;; [^\t] to include \n.