1004 |
(line-idx (nth 2 (car patterns)))) |
(line-idx (nth 2 (car patterns)))) |
1005 |
|
|
1006 |
(setq raw-file-name (if file-idx (match-string file-idx line) nil)) |
(setq raw-file-name (if file-idx (match-string file-idx line) nil)) |
1007 |
(setq line-no (if line-idx (string-to-int (match-string line-idx line)) 0)) |
(setq line-no (if line-idx (string-to-number (match-string line-idx line)) 0)) |
1008 |
(setq err-text (if (> (length (car patterns)) 4) |
(setq err-text (if (> (length (car patterns)) 4) |
1009 |
(match-string (nth 4 (car patterns)) line) |
(match-string (nth 4 (car patterns)) line) |
1010 |
(flymake-patch-err-text (substring line (match-end 0))))) |
(flymake-patch-err-text (substring line (match-end 0))))) |