From a1f6bf65822a46388f553278fdc0e5146ddb4990 Mon Sep 17 00:00:00 2001 From: Markus Hauck Date: Mon, 1 Dec 2014 10:17:51 +0100 Subject: [PATCH] Limit overlays to actual position of error Conflicts: elisp/ghc-check.el --- elisp/ghc-check.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/elisp/ghc-check.el b/elisp/ghc-check.el index 20de8b7..f90fded 100644 --- 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)