summaryrefslogtreecommitdiff
path: root/lisp/emulation
diff options
context:
space:
mode:
authorAndrew Burgess <andrew.burgess@embecosm.com>2020-06-07 09:20:19 +0100
committerEli Zaretskii <eliz@gnu.org>2020-06-20 10:41:56 +0300
commit2fec4c733cfb078de24a9d2dea51b1ff0bc717ca (patch)
treee2e2f05bd46328e74a6ce40ee6eb94747fd4b603 /lisp/emulation
parentbe5d0c0f63081b5aee5efe2fbcc5c4ace6ca9a02 (diff)
downloademacs-2fec4c733cfb078de24a9d2dea51b1ff0bc717ca.tar.gz
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
Diffstat (limited to 'lisp/emulation')
-rw-r--r--lisp/emulation/cua-base.el2
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."
(defun cua-cancel ()
"Cancel the active region, rectangle, or global mark."
(interactive)
- (setq mark-active nil)
+ (deactivate-mark)
(if (fboundp 'cua--cancel-rectangle)
(cua--cancel-rectangle)))