Description of custom-add-option in Info

Description of custom-add-option in Info

[Lennart Borgman]

The description of custom-add-option on Info page 14.3 is not consistent 
with the defun doc string.

Re: Description of custom-add-option in Info

[Richard M. Stallman]

    The description of custom-add-option on Info page 14.3 is not consistent 
    with the defun doc string.

Is this right?

*** custom.el	13 Apr 2005 13:41:46 -0400	1.83
--- custom.el	30 Jun 2005 21:18:28 -0400	
***************
*** 486,493 ****
  (defun custom-add-option (symbol option)
    "To the variable SYMBOL add OPTION.
  
! If SYMBOL is a hook variable, OPTION should be a hook member.
! For other types variables, the effect is undefined."
    (let ((options (get symbol 'custom-options)))
      (unless (member option options)
        (put symbol 'custom-options (cons option options)))))
--- 486,495 ----
  (defun custom-add-option (symbol option)
    "To the variable SYMBOL add OPTION.
  
! If SYMBOL's custom type is a hook, OPTION should be a hook member.
! If SYMBOL's custom type is an alist, OPTION specifies a symbol
! to offer to the user as a possible key in the alist.
! For other custom types, this has no effect."
    (let ((options (get symbol 'custom-options)))
      (unless (member option options)
        (put symbol 'custom-options (cons option options)))))