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

(describe-variable): Keep doc's text properties.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 1de255d1e638864438aba62b1ae1c5b6d1411b02..cb99d188ffa3379bd51472dcaf3af3691b8b8018 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -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"))