From 303b86e16520373bbaefa907c4ab589d13f70e21 Mon Sep 17 00:00:00 2001 From: Soonho Kong Date: Fri, 5 Sep 2014 23:07:51 -0700 Subject: [PATCH] refactor(emacs/lean-flycheck): clean up unused code --- src/emacs/lean-flycheck.el | 20 -------------------- 1 file changed, 20 deletions(-) diff --git a/src/emacs/lean-flycheck.el b/src/emacs/lean-flycheck.el index 09713c906..a3e0c2dae 100644 --- a/src/emacs/lean-flycheck.el +++ b/src/emacs/lean-flycheck.el @@ -56,26 +56,6 @@ (lean-flycheck-turn-off) (lean-flycheck-turn-on))) -(defun lean-flycheck-try-parse-error-with-pattern (err pattern) - "Try to parse a single ERR with a PATTERN. - -Return the parsed error if PATTERN matched ERR, or nil -otherwise." - (let ((regexp (car pattern)) - (level (cdr pattern))) - (when (string-match regexp err) - (let ((filename (match-string 1 err)) - (line (match-string 2 err)) - (column (match-string 3 err)) - (message (match-string 4 err))) - (flycheck-error-new - :filename (unless (string-empty-p filename) filename) - :line (flycheck-string-to-number-safe line) - :column (let ((col (flycheck-string-to-number-safe column))) - (if (= col 0) 1 col)) - :message (unless (string-empty-p message) message) - :level level))))) - (eval-after-load "flycheck" '(defadvice flycheck-try-parse-error-with-pattern (after lean-flycheck-try-parse-error-with-pattern activate)