486 |
(defun custom-add-option (symbol option) |
(defun custom-add-option (symbol option) |
487 |
"To the variable SYMBOL add OPTION. |
"To the variable SYMBOL add OPTION. |
488 |
|
|
489 |
If SYMBOL is a hook variable, OPTION should be a hook member. |
If SYMBOL's custom type is a hook, OPTION should be a hook member. |
490 |
For other types variables, the effect is undefined." |
If SYMBOL's custom type is an alist, OPTION specifies a symbol |
491 |
|
to offer to the user as a possible key in the alist. |
492 |
|
For other custom types, this has no effect." |
493 |
(let ((options (get symbol 'custom-options))) |
(let ((options (get symbol 'custom-options))) |
494 |
(unless (member option options) |
(unless (member option options) |
495 |
(put symbol 'custom-options (cons option options))))) |
(put symbol 'custom-options (cons option options))))) |