From: Kim F. Storm <storm@cua.dk>
Date: Fri, 3 Jan 2003 13:00:08 +0000 (+0000)
Subject: (cua--pre-command-handler): Corrected
X-Git-Tag: ttn-vms-21-2-B4~11860
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad9de65b54ae93c104f9f4750d4ec76de61fa91a;p=emacs.git

(cua--pre-command-handler): Corrected
handling of delete-selection properties.
---

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 5f8fc8533da..9018e0e95d3 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -977,12 +977,12 @@ Extra commands should be added to `cua-user-movement-commands'")
 			     'cua-copy-region))
 			  ((eq ds 'supersede)
 			   (if cua--rectangle
-			       'cua-delete-rectangle ;; replace?
-			     'cua-replace-region))
+			       'cua-delete-rectangle
+			     'cua-delete-region))
 			  (t
 			   (if cua--rectangle
-			       'cua-delete-rectangle
-			     'cua-delete-region)))))
+			       'cua-delete-rectangle ;; replace?
+			     'cua-replace-region)))))
 		(if nc
 		    (setq this-original-command this-command
 			  this-command nc)))))