diff options
| author | Andrew Burgess | 2020-06-07 09:20:19 +0100 |
|---|---|---|
| committer | Eli Zaretskii | 2020-06-20 10:41:56 +0300 |
| commit | 2fec4c733cfb078de24a9d2dea51b1ff0bc717ca (patch) | |
| tree | e2e2f05bd46328e74a6ce40ee6eb94747fd4b603 | |
| parent | be5d0c0f63081b5aee5efe2fbcc5c4ace6ca9a02 (diff) | |
| download | emacs-2fec4c733cfb078de24a9d2dea51b1ff0bc717ca.tar.gz emacs-2fec4c733cfb078de24a9d2dea51b1ff0bc717ca.zip | |
Fix bug with deactivation of mark in 'cua-cancel'
* lisp/emulation/cua-base.el (cua-cancel): Use 'deactivate-mark'
instead of setting 'mark-active' directly.
Copyright-paperwork-exempt: yes
| -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 | ||