Limit overlays to actual position of error

Conflicts:
	elisp/ghc-check.el
This commit is contained in:
Markus Hauck 2014-12-01 10:17:51 +01:00 committed by Daniel Gröber
parent f779a778fb
commit a1f6bf6582

View File

@ -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)