[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: defcustom cant handle quoted symbol value
From: |
Andreas Schwab |
Subject: |
Re: defcustom cant handle quoted symbol value |
Date: |
Wed, 27 Feb 2002 21:22:07 +0100 |
User-agent: |
Gnus/5.090005 (Oort Gnus v0.05) Emacs/21.2.50 (ia64-suse-linux) |
"Järneström Jonas" <erajonj@ki.ericsson.se> writes:
|> 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)
'main-vob == (quote main-vob), so this is not a symbol. Just remove the
quote sign.
Andreas.
--
Andreas Schwab, SuSE Labs, schwab@suse.de
SuSE GmbH, Deutschherrnstr. 15-19, D-90429 Nürnberg
Key fingerprint = 58CA 54C7 6D53 942B 1756 01D3 44D5 214B 8276 4ED5
"And now for something completely different."