# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1055784285 0
# Node ID d7e174e9d6ebd4f453180f524d5a7398a1f2e7ef
# Parent  c76c8cde2476807180b08c7a8eef770ed84ff460
(cua-mode): Use explicit arg to turn off minor modes.

diff -r c76c8cde2476 -r d7e174e9d6eb lisp/emulation/cua-base.el
--- a/lisp/emulation/cua-base.el	Mon Jun 16 16:56:05 2003 +0000
+++ b/lisp/emulation/cua-base.el	Mon Jun 16 17:24:45 2003 +0000
@@ -1,6 +1,6 @@
 ;;; cua-base.el --- emulate CUA key bindings
 
-;; Copyright (C) 1997-2002 Free Software Foundation, Inc.
+;; Copyright (C) 1997,98,99,200,01,02,03  Free Software Foundation, Inc.
 
 ;; Author: Kim F. Storm <storm@cua.dk>
 ;; Keywords: keyboard emulation convenience cua
@@ -1204,9 +1204,9 @@
 	   (and (boundp 'delete-selection-mode) delete-selection-mode)
 	   (and (boundp 'pc-selection-mode) pc-selection-mode)))
     (if (and (boundp 'delete-selection-mode) delete-selection-mode)
-	(delete-selection-mode))
+	(delete-selection-mode -1))
     (if (and (boundp 'pc-selection-mode) pc-selection-mode)
-	(pc-selection-mode))
+	(pc-selection-mode -1))
     (setq transient-mark-mode (and cua-mode
 				   (if cua-highlight-region-shift-only
 				       (not cua--explicit-region-start)