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
3e483e01
Commit
3e483e01
authored
Feb 01, 1995
by
Richard M. Stallman
Browse files
(describe-variable): If var is local, mention default.
parent
92bde7a2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
3 deletions
+9
-3
lisp/help.el
lisp/help.el
+9
-3
No files found.
lisp/help.el
View file @
3e483e01
...
...
@@ -499,13 +499,19 @@ Returns the documentation as a string, also."
v
(
intern
val
)))))
(
with-output-to-temp-buffer
"*Help*"
(
prin1
variable
)
(
princ
"'s value is "
)
(
if
(
not
(
boundp
variable
))
(
princ
"void."
)
(
princ
" is void"
)
(
princ
"'s value is "
)
(
prin1
(
symbol-value
variable
)))
(
terpri
)
(
if
(
local-variable-p
variable
)
(
princ
(
format
"Local in buffer %s\n"
(
buffer-name
))))
(
progn
(
princ
(
format
"Local in buffer %s; "
(
buffer-name
)))
(
if
(
not
(
default-boundp
variable
))
(
princ
"globally void"
)
(
princ
"global value is "
)
(
prin1
(
default-value
variable
)))
(
terpri
)))
(
terpri
)
(
princ
"Documentation:"
)
(
terpri
)
...
...
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