[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
defcustom cant handle quoted symbol value
From: |
Järneström Jonas |
Subject: |
defcustom cant handle quoted symbol value |
Date: |
Wed, 27 Feb 2002 19:09:43 +0100 (MET) |
In GNU Emacs 20.6.1 (sparc-sun-solaris2.6, X toolkit)
of Fri Mar 3 2000 on iris
configured using `configure --with-gcc --with-pop --with-x-toolkit=lucid
--bindir=/usr/local/bin --libexecdir=/usr/local/libexec'
I have a code as below. You can test it by loading it and doing
(customize-group 'teamconf)
Notice how the first option is fucked up with no hilite and no menu,
as compared with the second option. The only difference is that I use
'main-vob in the first and "main-vob" in the second. Nothing in the
ref man suggests that defcustom can't handle a quoted symbol, why I
belive this is a bug.
(defgroup teamconf nil "ClearCase Config Specs"
:group 'tools
:prefix "cs")
(defcustom cs-autolist-recent-objects 'main-vob
"*Vob(s) to list recent objects from, at start of session.
If t, list all vobs. If non-nil, list main vob. If nil, turned off."
:group 'teamconf
:type '(choice :tag "Vobs to autolist"
(const :tag "None" nil)
(const :tag "Main Vob" 'main-vob)
(const :tag "All Vobs" t)))
(defcustom cs-autolist-recent-objects2 "main-vob"
"*Vob(s) to list recent objects from, at start of session.
If t, list all vobs. If non-nil, list main vob. If nil, turned off."
:group 'teamconf
:type '(choice :tag "Vobs to autolist"
(const :tag "None" nil)
(const :tag "Main Vob" "main-vob")
(const :tag "All Vobs" t)))
- defcustom cant handle quoted symbol value,
Järneström Jonas <=