From ad9de65b54ae93c104f9f4750d4ec76de61fa91a Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Fri, 3 Jan 2003 13:00:08 +0000 Subject: [PATCH] (cua--pre-command-handler): Corrected handling of delete-selection properties. --- lisp/emulation/cua-base.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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))))) -- 2.39.2