comparison lisp/help-fns.el @ 84338:0ecc849c7f5c

Johan Bockg? <bojohan at dd.chalmers.se> (describe-variable): Keep doc's text properties.

84337:3a0c09dbead4

		(princ "if its value\nsatisfies the predicate ")
		(princ (if (byte-code-function-p safe-var)
			   "which is byte-compiled expression.\n"
			 (format "`%s'.\n" safe-var))))
	      (princ "\nDocumentation:\n")
              (princ (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"))
		  (terpri)
		  (terpri)

84338:0ecc849c7f5c

		(princ "if its value\nsatisfies the predicate ")
		(princ (if (byte-code-function-p safe-var)
			   "which is byte-compiled expression.\n"
			 (format "`%s'.\n" safe-var))))
	      (princ "\nDocumentation:\n")
	      (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"))
		  (terpri)
		  (terpri)