From: Kim F. Storm <storm@cua.dk>
Date: Sun, 19 Mar 2006 19:59:33 +0000 (+0000)
Subject: (cua--highlight-rectangle): Set overlay
X-Git-Tag: emacs-pretest-22.0.90~3517
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b53b41baa16e86577b9e10c3716b29912282071d;p=emacs.git

(cua--highlight-rectangle): Set overlay
cursor property value to 2 (to align with C level change).
---

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 120866e7925..33b38552595 100644
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -799,8 +799,8 @@ If command is repeated at same position, delete the rectangle."
 				(if cua--virtual-edges-debug ?, ?\s))
 			       'face rface))
 		     (if (cua--rectangle-right-side)
-			 (put-text-property (1- (length ms)) (length ms) 'cursor t ms)
-		       (put-text-property 0 1 'cursor t ms))
+			 (put-text-property (1- (length ms)) (length ms) 'cursor 2 ms)
+		       (put-text-property 0 1 'cursor 2 ms))
 		     (setq bs (concat bs ms))
 		     (setq rface nil))
  		    (t
@@ -810,8 +810,8 @@ If command is repeated at same position, delete the rectangle."
 				(if cua--virtual-edges-debug ?~ ?\s))
 			       'face rface))
 		     (if (cua--rectangle-right-side)
-			 (put-text-property (1- (length as)) (length as) 'cursor t as)
-		       (put-text-property 0 1 'cursor t as))
+			 (put-text-property (1- (length as)) (length as) 'cursor 2 as)
+		       (put-text-property 0 1 'cursor 2 as))
 		     (if (/= pr le)
 			 (setq e (1- e))))))))
 	     ;; Trim old leading overlays.