Commit 3e483e01 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(describe-variable): If var is local, mention default.

parent 92bde7a2
......@@ -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)))
(if (local-variable-p variable)
(princ (format "Local in buffer %s\n" (buffer-name))))
(princ (format "Local in buffer %s; " (buffer-name)))
(if (not (default-boundp variable))
(princ "globally void")
(princ "global value is ")
(prin1 (default-value variable)))
(princ "Documentation:")
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment