diff options
| -rw-r--r-- | lisp/emulation/cua-base.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 26a1a8955f4..c4dcb76446e 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el | |||
| @@ -860,7 +860,7 @@ With numeric prefix arg, copy to register 0-9 instead." | |||
| 860 | (defun cua-cancel () | 860 | (defun cua-cancel () |
| 861 | "Cancel the active region, rectangle, or global mark." | 861 | "Cancel the active region, rectangle, or global mark." |
| 862 | (interactive) | 862 | (interactive) |
| 863 | (setq mark-active nil) | 863 | (deactivate-mark) |
| 864 | (if (fboundp 'cua--cancel-rectangle) | 864 | (if (fboundp 'cua--cancel-rectangle) |
| 865 | (cua--cancel-rectangle))) | 865 | (cua--cancel-rectangle))) |
| 866 | 866 | ||