Re: add info about safe-local-variable to describe-variable

[Reiner Steib]

On Wed, May 10 2006, Luc Teirlinck wrote:

> I personally still believe that the best thing to do would just be to
> simply remove this annoying safe-local-variable clutter from the `C-h v'
> output entirely.

I think Richard decided to include it.

Maybe it would be better to shift it down so that it comes _after_ the
documentation:

--8<---------------cut here---------------start------------->8---
*** help-fns.el 11 May 2006 13:10:03 +0200      1.89
--- help-fns.el 11 May 2006 13:12:12 +0200      
***************
*** 642,656 ****
                  (princ (if (stringp (car obsolete)) (car obsolete)
                           (format "use `%s' instead." (car obsolete))))
                  (terpri))
              (when safe-var
!               (princ "This 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.")))
            ;; Make a link to customize if this variable can be customized.
            (if (custom-variable-p variable)
                (let ((customize-label "customize"))
--- 642,656 ----
                  (princ (if (stringp (car obsolete)) (car obsolete)
                           (format "use `%s' instead." (car obsolete))))
                  (terpri))
+             (princ "Documentation:\n")
+               (princ (or doc "Not documented as a variable."))
              (when safe-var
!               (princ "\n\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."
!                        (format "`%s'." safe-var)))
!               (terpri)))
            ;; Make a link to customize if this variable can be customized.
            (if (custom-variable-p variable)
                (let ((customize-label "customize"))
--8<---------------cut here---------------end--------------->8---

Bye, Reiner.
-- 
       ,,,
      (o o)
---ooO-(_)-Ooo---  |  PGP key available  |  http://rsteib.home.pages.de/