aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/emulation
diff options
context:
space:
mode:
authorKaroly Lorentey2006-03-22 15:16:06 +0000
committerKaroly Lorentey2006-03-22 15:16:06 +0000
commitd4717700cc0b7af6197c19e22bd912e3b1ed67ee (patch)
tree4e2a630584b23f670aff57a512a8f2d8182e39c4 /lisp/emulation
parentf1be5774242454844bf21fbf32e0f6541e2add34 (diff)
parentd63cd76657e12b92a5d7736a15bc9b97a7f9990e (diff)
downloademacs-d4717700cc0b7af6197c19e22bd912e3b1ed67ee.tar.gz
emacs-d4717700cc0b7af6197c19e22bd912e3b1ed67ee.zip
Merged from emacs@sv.gnu.org
Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-160 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-161 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-162 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-163 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-164 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-165 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-166 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-167 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-168 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-169 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-170 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-171 Update from CVS: man/mh-e.texi (Folders): Various edits. * emacs@sv.gnu.org/emacs--devo--0--patch-172 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-58 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-59 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-60 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-61 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-62 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-63 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-64 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-534
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/cua-rect.el8
1 files changed, 4 insertions, 4 deletions
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."
799 (if cua--virtual-edges-debug ?, ?\s)) 799 (if cua--virtual-edges-debug ?, ?\s))
800 'face rface)) 800 'face rface))
801 (if (cua--rectangle-right-side) 801 (if (cua--rectangle-right-side)
802 (put-text-property (1- (length ms)) (length ms) 'cursor t ms) 802 (put-text-property (1- (length ms)) (length ms) 'cursor 2 ms)
803 (put-text-property 0 1 'cursor t ms)) 803 (put-text-property 0 1 'cursor 2 ms))
804 (setq bs (concat bs ms)) 804 (setq bs (concat bs ms))
805 (setq rface nil)) 805 (setq rface nil))
806 (t 806 (t
@@ -810,8 +810,8 @@ If command is repeated at same position, delete the rectangle."
810 (if cua--virtual-edges-debug ?~ ?\s)) 810 (if cua--virtual-edges-debug ?~ ?\s))
811 'face rface)) 811 'face rface))
812 (if (cua--rectangle-right-side) 812 (if (cua--rectangle-right-side)
813 (put-text-property (1- (length as)) (length as) 'cursor t as) 813 (put-text-property (1- (length as)) (length as) 'cursor 2 as)
814 (put-text-property 0 1 'cursor t as)) 814 (put-text-property 0 1 'cursor 2 as))
815 (if (/= pr le) 815 (if (/= pr le)
816 (setq e (1- e)))))))) 816 (setq e (1- e))))))))
817 ;; Trim old leading overlays. 817 ;; Trim old leading overlays.