583 |
(setq col (match-string-no-properties col)) |
(setq col (match-string-no-properties col)) |
584 |
(setq col (- (string-to-number col) compilation-first-column))) |
(setq col (- (string-to-number col) compilation-first-column))) |
585 |
(if (and end-col (setq end-col (match-string-no-properties end-col))) |
(if (and end-col (setq end-col (match-string-no-properties end-col))) |
586 |
(setq end-col (- (string-to-number end-col) compilation-first-column)) |
(setq end-col (- (string-to-number end-col) compilation-first-column -1)) |
587 |
(if end-line (setq end-col -1))) |
(if end-line (setq end-col -1))) |
588 |
(if (consp type) ; not a static type, check what it is. |
(if (consp type) ; not a static type, check what it is. |
589 |
(setq type (or (and (car type) (match-end (car type)) 1) |
(setq type (or (and (car type) (match-end (car type)) 1) |