Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7e824765
Commit
7e824765
authored
May 25, 1998
by
Richard M. Stallman
Browse files
(describe-variable): Add a button to call
customize-variable if the variable can be customized.
parent
0bea75b9
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
16 additions
and
0 deletions
+16
-0
lisp/help.el
lisp/help.el
+16
-0
No files found.
lisp/help.el
View file @
7e824765
...
...
@@ -733,6 +733,22 @@ Returns the documentation as a string, also."
(
let
((
doc
(
documentation-property
variable
'variable-documentation
)))
(
princ
(
or
doc
"not documented as a variable."
)))
(
help-setup-xref
(
cons
#'
describe-variable
variable
)
(
interactive-p
))
;; Make a link to customize if this variable can be customized.
(
if
(
or
(
get
variable
'custom-type
)
(
user-variable-p
variable
))
(
let
((
customize-label
"customize"
))
(
terpri
)
(
terpri
)
(
princ
(
concat
"You can "
customize-label
" this variable."
))
(
with-current-buffer
"*Help*"
(
save-excursion
(
re-search-backward
(
concat
"\\("
customize-label
"\\)"
)
nil
t
)
(
help-xref-button
1
#'
(
lambda
(
v
)
(
customize-variable
v
))
variable
)
))))
(
print-help-return-message
)
(
save-excursion
(
set-buffer
standard-output
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment