# HG changeset patch
# User Daniel Pfeiffer <occitan@esperanto.org>
# Date 1087599646 0
# Node ID 0faa9af73cb1f77367822420cc7a7fd4d8cfff0d
# Parent  3879c096c20ce7c7117a9b4430c9fdb37bfec31a
(compilation-error-properties): Store one more than end-col, if present, so
that transient-mark-mode will highlight last char too.

diff -r 3879c096c20c -r 0faa9af73cb1 lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Fri Jun 18 22:59:05 2004 +0000
+++ b/lisp/progmodes/compile.el	Fri Jun 18 23:00:46 2004 +0000
@@ -583,7 +583,7 @@
 	 (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)