[Emacs-diffs] Changes to emacs/lisp/help-fns.el

[Reiner Steib]

Index: emacs/lisp/help-fns.el
diff -u emacs/lisp/help-fns.el:1.87 emacs/lisp/help-fns.el:1.88
--- emacs/lisp/help-fns.el:1.87 Sat Apr 29 21:18:05 2006
+++ emacs/lisp/help-fns.el      Thu May 11 11:03:57 2006
@@ -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.")))