changeset 47777:6a7ae10d9c96

(cua-normal-cursor-color): Fixed initialization to make "Erase Customization" work.
author Kim F. Storm <storm@cua.dk>
date Sun, 06 Oct 2002 21:34:07 +0000
parents 8d26dbd05bbf
children af8ff2a92902
files lisp/emulation/cua-base.el
diffstat 1 files changed, 11 insertions(+), 12 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/cua-base.el	Sun Oct 06 21:33:48 2002 +0000
+++ b/lisp/emulation/cua-base.el	Sun Oct 06 21:34:07 2002 +0000
@@ -425,20 +425,19 @@
   :type 'boolean
   :group 'cua)
 
-(defcustom cua-normal-cursor-color nil
+(defcustom cua-normal-cursor-color (or (and (boundp 'initial-cursor-color) initial-cursor-color)
+				       (and (boundp 'initial-frame-alist)
+					    (assoc 'cursor-color initial-frame-alist)
+					    (cdr (assoc 'cursor-color initial-frame-alist)))
+				       (and (boundp 'default-frame-alist)
+					    (assoc 'cursor-color default-frame-alist)
+					    (cdr (assoc 'cursor-color default-frame-alist)))
+				       (frame-parameter nil 'cursor-color)
+				       "red")
   "Normal (non-overwrite) cursor color.
 Also used to indicate that rectangle padding is not in effect.
-Automatically loaded from frame parameters, if nil."
-  :initialize (lambda (symbol value)
-		(set symbol (or value
-				(and (boundp 'initial-cursor-color) initial-cursor-color)
-				(and (boundp 'initial-frame-alist)
-				     (assoc 'cursor-color initial-frame-alist)
-				     (cdr (assoc 'cursor-color initial-frame-alist)))
-				(and (boundp 'default-frame-alist)
-				     (assoc 'cursor-color default-frame-alist)
-				     (cdr (assoc 'cursor-color default-frame-alist)))
-				(frame-parameter nil 'cursor-color))))
+Default is to load cursor color from initial or default frame parameters."
+  :initialize 'custom-initialize-default
   :type 'color
   :group 'cua)