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

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

1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 1de255d1e63..cb99d188ffa 100644
--- 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"))