Mercurial > emacs
changeset 56161:a8ce8bdfcee6
(custom-variable-documentation): New function.
(custom-variable): Use it.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Sat, 19 Jun 2004 16:02:06 +0000 |
| parents | 6ad083598109 |
| children | de7deaab0320 |
| files | lisp/cus-edit.el |
| diffstat | 1 files changed, 15 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/cus-edit.el Sat Jun 19 00:59:28 2004 +0000 +++ b/lisp/cus-edit.el Sat Jun 19 16:02:06 2004 +0000 @@ -2074,11 +2074,25 @@ :group 'custom-buffer :version "20.3") +(defun custom-variable-documentation (variable) + "Return documentation of VARIABLE for use in Custom buffer. +Normally just return the docstring. But if VARIABLE automatically +becomes buffer local when set, append a message to that effect." + (if (and (local-variable-if-set-p variable) + (or (not (local-variable-p variable)) + (with-temp-buffer + (local-variable-if-set-p variable)))) + (concat (documentation-property variable 'variable-documentation) + "\n +This variable automatically becomes buffer-local when set outside Custom. +However, setting it through Custom sets the default value.") + (documentation-property variable 'variable-documentation))) + (define-widget 'custom-variable 'custom "Customize variable." :format "%v" :help-echo "Set or reset this variable." - :documentation-property 'variable-documentation + :documentation-property #'custom-variable-documentation :custom-category 'option :custom-state nil :custom-menu 'custom-variable-menu-create