From cfedcf12ede59277fcf9bbe52b1375ddb5048778 Mon Sep 17 00:00:00 2001 From: "Matthew O. Smith" Date: Mon, 20 Jan 2014 09:54:57 -0700 Subject: [PATCH] gh-110 Handle tabs in the caret line --- src/main/lisp/malabar-flycheck.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/main/lisp/malabar-flycheck.el b/src/main/lisp/malabar-flycheck.el index 066e94d..32c816a 100644 --- a/src/main/lisp/malabar-flycheck.el +++ b/src/main/lisp/malabar-flycheck.el @@ -29,11 +29,13 @@ ;; (malabar-util-expand-file-name (buffer-file-name buf)))))) - +replace-reg (defun malabar-flycheck-error-column (lines) "Find the column of the error by looking for the magic caret" - (let ((caret-line (-first (lambda (s) (string-match "\\( *\\^\\).*" s)) lines))) - (when caret-line (length (match-string 1 caret-line))))) + (let* ((caret-line (-first (lambda (s) (string-match "\\( *\\^\\).*" s)) lines)) + (g1 (match-string 1 caret-line)) + (g2 (replace-regexp-in-string "\t" " " g1))) + (when caret-line (length g2)))) (defun malabar-flycheck-error-line? (line)