[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el |
Date: |
Sun, 19 Mar 2006 19:59:33 +0000 |
Index: emacs/lisp/emulation/cua-rect.el
diff -u emacs/lisp/emulation/cua-rect.el:1.30
emacs/lisp/emulation/cua-rect.el:1.31
--- emacs/lisp/emulation/cua-rect.el:1.30 Mon Feb 6 11:37:04 2006
+++ emacs/lisp/emulation/cua-rect.el Sun Mar 19 19:59:33 2006
@@ -799,8 +799,8 @@
(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 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.
- [Emacs-diffs] Changes to emacs/lisp/emulation/cua-rect.el,
Kim F. Storm <=