# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1183673448 0
# Node ID c7f2dc6a69fc5537c12640c3f52994d12cdaacda
# Parent  40b9ac3290303e5cb7a3a9e7982a16006da76586
(widget-documentation-string-value-create): Insert indentation spaces.

diff -r 40b9ac329030 -r c7f2dc6a69fc lisp/wid-edit.el
--- a/lisp/wid-edit.el	Thu Jul 05 22:10:36 2007 +0000
+++ b/lisp/wid-edit.el	Thu Jul 05 22:10:48 2007 +0000
@@ -2910,6 +2910,8 @@
 	(let ((before (substring doc 0 (match-beginning 0)))
 	      (after (substring doc (match-beginning 0)))
 	      button)
+	  (when (and indent (not (zerop indent)))
+	    (insert-char ?\s indent))
 	  (insert before ?\s)
 	  (widget-documentation-link-add widget start (point))
 	  (setq button
@@ -2928,6 +2930,8 @@
 	    (insert after)
 	    (widget-documentation-link-add widget start (point)))
 	  (widget-put widget :buttons (list button)))
+      (when (and indent (not (zerop indent)))
+	(insert-char ?\s indent))
       (insert doc)
       (widget-documentation-link-add widget start (point))))
   (insert ?\n))