Mercurial > emacs
changeset 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 | 5bf70421e7ea |
| children | d09c5cf66b5c |
| files | lisp/ChangeLog lisp/help-fns.el |
| diffstat | 2 files changed, 12 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu May 11 10:08:03 2006 +0000 +++ b/lisp/ChangeLog Thu May 11 11:03:57 2006 +0000 @@ -1,3 +1,9 @@ +2006-05-11 Reiner Steib <Reiner.Steib@gmx.de> + + * help-fns.el (describe-variable): Don't print safe-var if it is + byte-code. Improve wording as suggested by Luc Teirlinck + <teirllm@auburn.edu>. + 2006-05-11 Nick Roberts <nickrob@snap.net.nz> * progmodes/gdb-ui.el (gdb-reset): Update speedbar if necessary.
--- a/lisp/help-fns.el Thu May 11 10:08:03 2006 +0000 +++ b/lisp/help-fns.el Thu May 11 11:03:57 2006 +0000 @@ -642,10 +642,12 @@ (princ (if (stringp (car obsolete)) (car obsolete) (format "use `%s' instead." (car obsolete)))) (terpri)) - (when safe-var - (princ "This variable is safe to use as a file local variable") - (princ (format " only if its value\nsatisfies the predicate `%s'.\n" - safe-var)) + (when safe-var + (princ "\n\nThis variable is safe as a file local variable ") + (princ "if its value\nsatisfies the predicate ") + (princ (if (byte-code-function-p safe-var) + "which is byte-compiled expression.\n" + (format "`%s'.\n" safe-var))) (terpri)) (princ "Documentation:\n") (princ (or doc "Not documented as a variable.")))