diff options
| author | Richard M. Stallman <[email protected]> | 1995-01-27 23:10:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <[email protected]> | 1995-01-27 23:10:42 +0000 |
| commit | b872e1da177ed719ce020a4997bc53a4624f51df (patch) | |
| tree | ab265f5d3e52577feabd54cac6dc9f64eab85bd3 /lisp/help.el | |
| parent | 51b2c84172d26827e22bcd13bf252238683cb3ce (diff) | |
(describe-variable): Use local-variable-p.
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 11 |
1 files changed, 2 insertions, 9 deletions
diff --git a/lisp/help.el b/lisp/help.el index b55edc5e13..2ad9158413 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -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) |