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/
_______________________________________________
emacs-pretest-bug mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
