mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(describe-variable): Undo 2008-02-25 change.

Browse Source
This commit is contained in:
Chong Yidong 2008-04-03 04:01:32 +00:00
parent 902c9b1a16
commit 526792a318
1 changed files with 5 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lisp/help-fns.el
View File

@ -679,38 +679,17 @@ it is displayed along with the global value."
(with-current-buffer standard-output
(insert (or doc "Not documented as a variable."))))
(let ((customize-label "customize")
(initialization-file "initialization file"))
;; All variables can be set; some can be customized
(when (and (symbolp variable) (not (custom-variable-p variable)))
;; Make a link to customize if this variable can be customized.
(when (custom-variable-p variable)
(let ((customize-label "customize"))
(terpri)
(terpri)
(princ (concat "You can set this variable in your "
initialization-file "."))
(with-current-buffer standard-output
(save-excursion
(re-search-backward
(concat "\\(" initialization-file "\\)") nil t)
(help-xref-button 1 'help-info-variable variable
"(emacs)Init File"))))
;; Make a link to customize if this variable can be customized.
(when (custom-variable-p variable)
(terpri)
(terpri)
(princ (concat "You can " customize-label " this variable"))
(princ (concat " or set it in your " initialization-file "."))
(princ (concat "You can " customize-label " this variable."))
(with-current-buffer standard-output
(save-excursion
(re-search-backward
(concat "\\(" customize-label "\\)") nil t)
(help-xref-button 1 'help-customize-variable variable))
(save-excursion
(re-search-backward
(concat "\\(" initialization-file "\\)") nil t)
(help-xref-button 1 'help-info-variable variable
"(emacs)Init File")
)
))
(help-xref-button 1 'help-customize-variable variable))))
;; Note variable's version or package version
(let ((output (describe-variable-custom-version-info variable)))
(when output