diff options
| author | Reiner Steib <Reiner.Steib@gmx.de> | 2006-05-11 11:03:57 +0000 |
|---|---|---|
| committer | Reiner Steib <Reiner.Steib@gmx.de> | 2006-05-11 11:03:57 +0000 |
| commit | 6fe7b8a42c19f49812793c161d417bfec0b3dd05 (patch) | |
| tree | 4a2a47d58d213b0033b15c6c7bbdd6957fc558bd | |
| parent | d22b968f753045eab68797f06a4d2ff90103d3fe (diff) | |
| download | emacs-6fe7b8a42c19f49812793c161d417bfec0b3dd05.tar.gz | |
(describe-variable): Don't print safe-var if it is
byte-code. Improve wording as suggested by Luc Teirlinck
<teirllm@auburn.edu>.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/help-fns.el | 10 |
2 files changed, 12 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ea8fdc06a40..3b7c47339ca 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 2b75e7fd053..c56d517aed3 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -642,10 +642,12 @@ it is displayed along with the global value." (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."))) |