(compilation-error-properties): Store one more than end-col, if present, so

that transient-mark-mode will highlight last char too.
This commit is contained in:
Daniel Pfeiffer 2004-06-18 23:00:46 +00:00
parent fed0b1ee23
commit c0090c20f8

View file

@ -583,7 +583,7 @@ Faces `compilation-error-face', `compilation-warning-face',
(setq col (match-string-no-properties col))
(setq col (- (string-to-number col) compilation-first-column)))
(if (and end-col (setq end-col (match-string-no-properties end-col)))
(setq end-col (- (string-to-number end-col) compilation-first-column))
(setq end-col (- (string-to-number end-col) compilation-first-column -1))
(if end-line (setq end-col -1)))
(if (consp type) ; not a static type, check what it is.
(setq type (or (and (car type) (match-end (car type)) 1)