Commit b872e1da authored by Richard M. Stallman's avatar Richard M. Stallman

(describe-variable): Use local-variable-p.

parent 51b2c841
......@@ -504,15 +504,8 @@ Returns the documentation as a string, also."
(princ "void.")
(prin1 (symbol-value variable)))
(terpri)
(let ((locals (buffer-local-variables))
is-local)
(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)))))
(if (local-variable-p variable)
(princ (format "Local in buffer %s\n" (buffer-name))))
(terpri)
(princ "Documentation:")
(terpri)
......
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