From: Chong Yidong Date: Thu, 5 Jul 2007 22:12:47 +0000 (+0000) Subject: (widget-documentation-string-value-create): Insert spaces for X-Git-Tag: emacs-pretest-23.0.90~8295^2~383 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3e318d972dc501cc609976db863bffb196e6ab0b;p=emacs.git (widget-documentation-string-value-create): Insert spaces for indentation. --- diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 1cb32e5f951..59d960e9822 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -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))