1 files 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)))))