# HG changeset patch
# User Reiner Steib <Reiner.Steib@gmx.de>
# Date 1147345437 0
# Node ID 8a6fc62787540084b78a5aefa3b1cb6249b81f99
# Parent  5bf70421e7eaa1cbc1763eb6065a6ba5b66a35cd
(describe-variable): Don't print safe-var if it is
byte-code.  Improve wording as suggested by Luc Teirlinck
<teirllm@auburn.edu>.

diff -r 5bf70421e7ea -r 8a6fc6278754 lisp/ChangeLog
--- 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.
diff -r 5bf70421e7ea -r 8a6fc6278754 lisp/help-fns.el
--- 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.")))