/[emacs]/emacs/lisp/custom.el
ViewVC logotype

Diff of /emacs/lisp/custom.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.84 by teirllm, Sat Jul 2 22:52:27 2005 UTC revision 1.85 by rms, Sun Jul 3 16:09:07 2005 UTC
# Line 486  both appear in constructs like `custom-s Line 486  both appear in constructs like `custom-s
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)))))

Legend:
Removed from v.1.84  
changed lines
  Added in v.1.85

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26