Mercurial > emacs
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)