Re: defcustom - restricted list of symbols

[Magnus Henoch <mange@freemail.hu>]

"Joe Casadonte" <jcasadonte@northbound-train.com> writes:

> I'd like to write a defcustom variable definition that:
>
> 1. is a symbol (but could be a string, if need be)
> 2. is one of a list of "acceptable" symbols
> 3. the complete list of "acceptable" symbols is not know at the time I
>    write I write the defcustom itself (but is known at run-time)
> 4. by the nature of #3, I need to be able to add to the list of valid
>    symbols
> 5. presented to the user as a radio button or check box would be

This seems to work:

(eval-when-compile (require 'cl))

(defcustom malekzista 'foo
  "An option with restrictions decided at runtime."
  :type '(radio (const foo)))

(defun malekzista-add-option (new-option)
  "Add new option to variable `malekzista'."
  (push (list 'const new-option) (cdr (get 'malekzista 'custom-type))))

Magnus