Limit overlays to actual position of error
Conflicts: elisp/ghc-check.el
This commit is contained in:
parent
f779a778fb
commit
a1f6bf6582
@ -177,10 +177,10 @@ nil does not display errors/warnings.
|
|||||||
(setq end (point)))
|
(setq end (point)))
|
||||||
(progn
|
(progn
|
||||||
(forward-line (1- line))
|
(forward-line (1- line))
|
||||||
(skip-chars-forward " ")
|
(forward-char (1- coln))
|
||||||
(setq beg (point))
|
(setq beg (point))
|
||||||
(forward-line)
|
(skip-chars-forward "^[:space:]" (line-end-position))
|
||||||
(setq end (1- (point))))))
|
(setq end (point)))))
|
||||||
(t
|
(t
|
||||||
(setq beg (point))
|
(setq beg (point))
|
||||||
(forward-line)
|
(forward-line)
|
||||||
|
Loading…
Reference in New Issue
Block a user