From c0090c20f88d1e8c99e9823db5b9cc25d98672bc Mon Sep 17 00:00:00 2001 From: Daniel Pfeiffer Date: Fri, 18 Jun 2004 23:00:46 +0000 Subject: [PATCH] (compilation-error-properties): Store one more than end-col, if present, so that transient-mark-mode will highlight last char too. --- lisp/progmodes/compile.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 3a880a4c9ea..033ce883e5f 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -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) -- 2.39.5