Mercurial > emacs
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) |