(cua--pre-command-handler): Corrected

handling of delete-selection properties.
2003-01-03 13:00:08 +00:00
parent 821adeae4e
commit ad9de65b54
1 changed files with 4 additions and 4 deletions
--- 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)))))