diff options
| -rw-r--r-- | lisp/help.el | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/lisp/help.el b/lisp/help.el index 2ad91584132..fb4815408e0 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -499,13 +499,19 @@ Returns the documentation as a string, also." | |||
| 499 | v (intern val))))) | 499 | v (intern val))))) |
| 500 | (with-output-to-temp-buffer "*Help*" | 500 | (with-output-to-temp-buffer "*Help*" |
| 501 | (prin1 variable) | 501 | (prin1 variable) |
| 502 | (princ "'s value is ") | ||
| 503 | (if (not (boundp variable)) | 502 | (if (not (boundp variable)) |
| 504 | (princ "void.") | 503 | (princ " is void") |
| 504 | (princ "'s value is ") | ||
| 505 | (prin1 (symbol-value variable))) | 505 | (prin1 (symbol-value variable))) |
| 506 | (terpri) | 506 | (terpri) |
| 507 | (if (local-variable-p variable) | 507 | (if (local-variable-p variable) |
| 508 | (princ (format "Local in buffer %s\n" (buffer-name)))) | 508 | (progn |
| 509 | (princ (format "Local in buffer %s; " (buffer-name))) | ||
| 510 | (if (not (default-boundp variable)) | ||
| 511 | (princ "globally void") | ||
| 512 | (princ "global value is ") | ||
| 513 | (prin1 (default-value variable))) | ||
| 514 | (terpri))) | ||
| 509 | (terpri) | 515 | (terpri) |
| 510 | (princ "Documentation:") | 516 | (princ "Documentation:") |
| 511 | (terpri) | 517 | (terpri) |