# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1083594383 0
# Node ID 7ee62cfb248c1146fcef2f57477d2d3dd7549f99
# Parent  0c2bbf5c1f6123636feae1f6c42a43240032f621
(cua-mode): Deactivate mark when cua-mode is enabled.

diff -r 0c2bbf5c1f61 -r 7ee62cfb248c lisp/emulation/cua-base.el
--- a/lisp/emulation/cua-base.el	Mon May 03 14:25:58 2004 +0000
+++ b/lisp/emulation/cua-base.el	Mon May 03 14:26:23 2004 +0000
@@ -1336,6 +1336,7 @@
 	(delete-selection-mode -1))
     (if (and (boundp 'pc-selection-mode) pc-selection-mode)
 	(pc-selection-mode -1))
+    (cua--deactivate)
     (setq transient-mark-mode (and cua-mode
 				   (if cua-highlight-region-shift-only
 				       (not cua--explicit-region-start)