From: Daniel Pfeiffer <occitan@esperanto.org>
Date: Fri, 18 Jun 2004 23:00:46 +0000 (+0000)
Subject: (compilation-error-properties): Store one more than end-col, if present, so
X-Git-Tag: ttn-vms-21-2-B4~5721
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c0090c20f88d1e8c99e9823db5b9cc25d98672bc;p=emacs.git

(compilation-error-properties): Store one more than end-col, if present, so
that transient-mark-mode will highlight last char too.
---

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)