making multiple same errors to a single.

This commit is contained in:
Kazu Yamamoto 2014-03-31 15:14:16 +09:00
parent 1e4dce2944
commit bfdc884708

View File

@ -42,7 +42,7 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(ghc-defstruct hilit-info file line col msg err) (ghc-defstruct hilit-info file line msg err)
(defun ghc-check-send () (defun ghc-check-send ()
(with-current-buffer ghc-process-original-buffer (with-current-buffer ghc-process-original-buffer
@ -66,16 +66,16 @@
(while (re-search-forward regex nil t) (while (re-search-forward regex nil t)
(let* ((file (match-string 1)) (let* ((file (match-string 1))
(line (string-to-number (match-string 2))) (line (string-to-number (match-string 2)))
(col (string-to-number (match-string 3))) ;; don't take column to make multiple same errors to a single.
(msg (match-string 4)) (msg (match-string 4))
(err (not (string-match "^Warning" msg))) (err (not (string-match "^Warning" msg)))
(info (ghc-make-hilit-info (info (ghc-make-hilit-info
:file file :file file
:line line :line line
:col col
:msg msg :msg msg
:err err))) :err err)))
(setq infos (cons info infos)))) (unless (member info infos)
(setq infos (cons info infos)))))
(setq infos (nreverse infos)) (setq infos (nreverse infos))
(cond (cond
(infos (infos