Johan Bockg� <bojohan at dd.chalmers.se>

(describe-variable): Keep doc's text properties.
This commit is contained in:
Glenn Morris 2007-09-06 05:53:42 +00:00
parent 27ba1132c9
commit fccd9537b1

View file

@ -625,7 +625,8 @@ it is displayed along with the global value."
"which is byte-compiled expression.\n"
(format "`%s'.\n" safe-var))))
(princ "\nDocumentation:\n")
(princ (or doc "Not documented as a variable.")))
(with-current-buffer standard-output
(insert (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"))