gh-110 Fixed line parsing to include tabs

m0smith · Jan 20, 2014 · 6dcd7d2 · 6dcd7d2
1 parent 83bb083
commit 6dcd7d2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/main/lisp/malabar-flycheck.el b/src/main/lisp/malabar-flycheck.el
@@ -31,9 +31,9 @@
 
 (defun malabar-flycheck-error-column (lines)
   "Find the column of the error by looking for the magic caret.  Expand tabs to 8 spaces."
-  (let* ((caret-line (-first (lambda (s) (string-match "\\( *\\^\\).*" s)) lines))
+  (let* ((caret-line (-first (lambda (s) (string-match "\\([\t ]*\\^\\).*" s)) lines))
 	 (g1 (when caret-line (match-string 1 caret-line)))
-	 (g2 (when g1 (replace-regexp-in-string "\t" "        " g1))))
+	 (g2 (when g1 (replace-regexp-in-string " " "!" g1))))
     (when  g2 (length g2))))