From: Glenn Morris <rgm@gnu.org>
Date: Thu, 6 Sep 2007 05:53:42 +0000 (+0000)
Subject: Johan Bockg�  <bojohan at dd.chalmers.se>
X-Git-Tag: emacs-pretest-23.0.90~11068
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fccd9537b1a9ee423d253a46fa7f0c3f6cbf9684;p=emacs.git

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