Mercurial > emacs
comparison lisp/help-fns.el @ 70588:8a6fc6278754
(describe-variable): Don't print safe-var if it is
byte-code. Improve wording as suggested by Luc Teirlinck
<teirllm@auburn.edu>.
| author | Reiner Steib <Reiner.Steib@gmx.de> |
|---|---|
| date | Thu, 11 May 2006 11:03:57 +0000 |
| parents | fe86bf681435 |
| children | d09c5cf66b5c |
comparison
equal
deleted
inserted
replaced
| 70587:5bf70421e7ea | 70588:8a6fc6278754 |
|---|---|
| 640 (if (cdr obsolete) (princ (format " since %s" (cdr obsolete)))) | 640 (if (cdr obsolete) (princ (format " since %s" (cdr obsolete)))) |
| 641 (princ ";") (terpri) | 641 (princ ";") (terpri) |
| 642 (princ (if (stringp (car obsolete)) (car obsolete) | 642 (princ (if (stringp (car obsolete)) (car obsolete) |
| 643 (format "use `%s' instead." (car obsolete)))) | 643 (format "use `%s' instead." (car obsolete)))) |
| 644 (terpri)) | 644 (terpri)) |
| 645 (when safe-var | 645 (when safe-var |
| 646 (princ "This variable is safe to use as a file local variable") | 646 (princ "\n\nThis variable is safe as a file local variable ") |
| 647 (princ (format " only if its value\nsatisfies the predicate `%s'.\n" | 647 (princ "if its value\nsatisfies the predicate ") |
| 648 safe-var)) | 648 (princ (if (byte-code-function-p safe-var) |
| 649 "which is byte-compiled expression.\n" | |
| 650 (format "`%s'.\n" safe-var))) | |
| 649 (terpri)) | 651 (terpri)) |
| 650 (princ "Documentation:\n") | 652 (princ "Documentation:\n") |
| 651 (princ (or doc "Not documented as a variable."))) | 653 (princ (or doc "Not documented as a variable."))) |
| 652 ;; Make a link to customize if this variable can be customized. | 654 ;; Make a link to customize if this variable can be customized. |
| 653 (if (custom-variable-p variable) | 655 (if (custom-variable-p variable) |