mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(custom-add-option): Doc fix.

Browse Source
This commit is contained in:
Richard M. Stallman 2005-07-03 16:09:07 +00:00
parent f8e1f21382
commit a4842ffa6e
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/custom.el
View File

@ -486,8 +486,10 @@ both appear in constructs like `custom-set-variables'."
(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."
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)))))