diff options
| author | Richard M. Stallman | 1994-09-17 07:30:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-17 07:30:42 +0000 |
| commit | 7e76ae2395e75949c865ac0c7cfde7e1b0b70532 (patch) | |
| tree | b89737dee0cd846a464500dc79e0fae10720a7a1 | |
| parent | 5afc7fb0ba4b2ea4ffbcf83108038e8467780e66 (diff) | |
| download | emacs-7e76ae2395e75949c865ac0c7cfde7e1b0b70532.tar.gz emacs-7e76ae2395e75949c865ac0c7cfde7e1b0b70532.zip | |
(describe-variable): Report whether var is local in this buf.
| -rw-r--r-- | lisp/help.el | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 308574cca5c..80cbdcea6f6 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -456,7 +456,17 @@ Returns the documentation as a string, also." | |||
| 456 | (if (not (boundp variable)) | 456 | (if (not (boundp variable)) |
| 457 | (princ "void.") | 457 | (princ "void.") |
| 458 | (prin1 (symbol-value variable))) | 458 | (prin1 (symbol-value variable))) |
| 459 | (terpri) (terpri) | 459 | (terpri) |
| 460 | (let ((locals (buffer-local-variables)) | ||
| 461 | is-local) | ||
| 462 | (while locals | ||
| 463 | (if (or (eq variable (car locals)) | ||
| 464 | (eq variable (car-safe (car locals)))) | ||
| 465 | (setq is-local t locals nil)) | ||
| 466 | (setq locals (cdr locals))) | ||
| 467 | (if is-local | ||
| 468 | (princ (format "Local in buffer %s\n" (buffer-name))))) | ||
| 469 | (terpri) | ||
| 460 | (princ "Documentation:") | 470 | (princ "Documentation:") |
| 461 | (terpri) | 471 | (terpri) |
| 462 | (let ((doc (documentation-property variable 'variable-documentation))) | 472 | (let ((doc (documentation-property variable 'variable-documentation))) |