changeset 49020:860515917741

(cua--pre-command-handler): Corrected handling of delete-selection properties.
author Kim F. Storm <storm@cua.dk>
date Fri, 03 Jan 2003 13:00:08 +0000
parents f78a61f226b5
children f5b3c92f968b
files lisp/emulation/cua-base.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/cua-base.el	Fri Jan 03 12:59:20 2003 +0000
+++ b/lisp/emulation/cua-base.el	Fri Jan 03 13:00:08 2003 +0000
@@ -977,12 +977,12 @@
 			     '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)))))