comparison lisp/custom.el @ 63932:bbf23e50d797

(custom-add-option): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Sun, 03 Jul 2005 16:09:07 +0000
parents 7f7d0de05845
children 6fb026ad601f
comparison
equal deleted inserted replaced
63931:a166968798fa 63932:bbf23e50d797
484 (put symbol 'custom-dependencies new-deps)))) 484 (put symbol 'custom-dependencies new-deps))))
485 485
486 (defun custom-add-option (symbol option) 486 (defun custom-add-option (symbol option)
487 "To the variable SYMBOL add OPTION. 487 "To the variable SYMBOL add OPTION.
488 488
489 If SYMBOL is a hook variable, OPTION should be a hook member. 489 If SYMBOL's custom type is a hook, OPTION should be a hook member.
490 For other types variables, the effect is undefined." 490 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."
491 (let ((options (get symbol 'custom-options))) 493 (let ((options (get symbol 'custom-options)))
492 (unless (member option options) 494 (unless (member option options)
493 (put symbol 'custom-options (cons option options))))) 495 (put symbol 'custom-options (cons option options)))))
494 496
495 (defun custom-add-link (symbol widget) 497 (defun custom-add-link (symbol widget)