diff options
Diffstat (limited to 'lisp')
| -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 b55edc5e133..2ad91584132 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) |