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

[Dan Nicolaescu]

Index: emacs/lisp/help-fns.el
diff -u emacs/lisp/help-fns.el:1.86 emacs/lisp/help-fns.el:1.87
--- emacs/lisp/help-fns.el:1.86 Sat Feb 18 23:31:17 2006
+++ emacs/lisp/help-fns.el      Sat Apr 29 21:18:05 2006
@@ -630,6 +630,7 @@
                              (indirect-variable variable)
                            (error variable)))
                    (obsolete (get variable 'byte-obsolete-variable))
+                  (safe-var (get variable 'safe-local-variable))
                    (doc (or (documentation-property variable 
'variable-documentation)
                             (documentation-property alias 
'variable-documentation))))
               (unless (eq alias variable)
@@ -641,6 +642,11 @@
                 (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))
+               (terpri))
              (princ "Documentation:\n")
               (princ (or doc "Not documented as a variable.")))
            ;; Make a link to customize if this variable can be customized.