]> git.eshelyaron.com Git - emacs.git/commitdiff
(widget-documentation-string-value-create): Insert spaces for
authorChong Yidong <cyd@stupidchicken.com>
Thu, 5 Jul 2007 22:12:47 +0000 (22:12 +0000)
committerChong Yidong <cyd@stupidchicken.com>
Thu, 5 Jul 2007 22:12:47 +0000 (22:12 +0000)
indentation.

lisp/wid-edit.el

index 1cb32e5f951ef4f2dc81821be06e30f9d30d064c..59d960e982232d39b412e80a2a760e7362be4196 100644 (file)
@@ -2910,6 +2910,8 @@ link for that string."
        (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 @@ link for that string."
            (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))