Commit 7e76ae23 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(describe-variable): Report whether var is local in this buf.

parent 5afc7fb0
......@@ -456,7 +456,17 @@ Returns the documentation as a string, also."
(if (not (boundp variable))
(princ "void.")
(prin1 (symbol-value variable)))
(terpri) (terpri)
(let ((locals (buffer-local-variables))
(while locals
(if (or (eq variable (car locals))
(eq variable (car-safe (car locals))))
(setq is-local t locals nil))
(setq locals (cdr locals)))
(if is-local
(princ (format "Local in buffer %s\n" (buffer-name)))))
(princ "Documentation:")
(let ((doc (documentation-property variable 'variable-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