Limit overlays to actual position of error

Conflicts: elisp/ghc-check.el
2014-12-01 10:17:51 +01:00 · 2014-12-01 10:17:51 +01:00 · a1f6bf6582
commit a1f6bf6582
parent f779a778fb
1 changed files with 3 additions and 3 deletions
--- a/elisp/ghc-check.el
+++ b/elisp/ghc-check.el
@ -177,10 +177,10 @@ nil            does not display errors/warnings.
                (setq end (point)))
              (progn
                (forward-line (1- line))
-                (skip-chars-forward " ")
+                (forward-char (1- coln))
                (setq beg (point))
-                (forward-line)
-                (setq end (1- (point))))))
+                (skip-chars-forward "^[:space:]" (line-end-position))
+                (setq end (point)))))
 	   (t
 	    (setq beg (point))
 	    (forward-line)