From fccd9537b1a9ee423d253a46fa7f0c3f6cbf9684 Mon Sep 17 00:00:00 2001
From: Glenn Morris <rgm@gnu.org>
Date: Thu, 6 Sep 2007 05:53:42 +0000
Subject: [PATCH] =?utf8?q?Johan=20Bockg=EF=BF=BD=20=20<bojohan=20at=20dd.c?=
 =?utf8?q?halmers.se>?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

(describe-variable): Keep doc's text properties.
---
 lisp/help-fns.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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"))
-- 
2.39.5