# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1021029670 0
# Node ID d68e3a5fce0c4adee03f8841ba847da274c01149
# Parent  4c15061962f6570ce9c45b7265a7c7e82dab0dc9
(cua-enable-cua-keys)
(cua-enable-register-prefix): Added value for `other' choice.

diff -r 4c15061962f6 -r d68e3a5fce0c lisp/emulation/cua-base.el
--- a/lisp/emulation/cua-base.el	Fri May 10 11:20:23 2002 +0000
+++ b/lisp/emulation/cua-base.el	Fri May 10 11:21:10 2002 +0000
@@ -259,7 +259,7 @@
 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 @@
   :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