making multiple same errors to a single.
This commit is contained in:
parent
1e4dce2944
commit
bfdc884708
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user