From: Kim F. Storm <storm@cua.dk>
Date: Fri, 10 May 2002 11:21:10 +0000 (+0000)
Subject: (cua-enable-cua-keys)
X-Git-Tag: ttn-vms-21-2-B4~15106
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/c1cdea1a7925500bf8c3b005cd965d3b877bcfc5

(cua-enable-cua-keys)
(cua-enable-register-prefix): Added value for `other' choice.
---

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index 354bc6fff6..95423ea5ff 100644
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -259,7 +259,7 @@ a shifted movement key.  If the value is nil, these keys are never
 enabled."
   :type '(choice (const :tag "Disabled" nil) 
 		 (const :tag "Shift region only" shift)
-		 (other :tag "Enabled"))
+		 (other :tag "Enabled" t))
   :group 'cua)
 
 (defcustom cua-highlight-region-shift-only nil
@@ -301,7 +301,7 @@ interpreted as a register number."
   :type '(choice (const :tag "Disabled" nil) 
 		 (const :tag "Enabled, but C-u arg is not a register" not-ctrl-u)
 		 (const :tag "Enabled, but only for C-u arg" ctrl-u-only)
-		 (other :tag "Enabled"))
+		 (other :tag "Enabled" t))
   :group 'cua)
 
 (defcustom cua-delete-copy-to-register-0 t