changeset 84338:0ecc849c7f5c

Johan Bockg? <bojohan at dd.chalmers.se> (describe-variable): Keep doc's text properties.
author Glenn Morris <rgm@gnu.org>
date Thu, 06 Sep 2007 05:53:42 +0000
parents 3a0c09dbead4
children 2397532a703a
files lisp/help-fns.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/help-fns.el	Thu Sep 06 05:53:04 2007 +0000
+++ b/lisp/help-fns.el	Thu Sep 06 05:53:42 2007 +0000
@@ -625,7 +625,8 @@
 			   "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"))