From 3e318d972dc501cc609976db863bffb196e6ab0b Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 5 Jul 2007 22:12:47 +0000 Subject: [PATCH] (widget-documentation-string-value-create): Insert spaces for indentation. --- lisp/wid-edit.el | 4 ++++ 1 file changed, 4 insertions(+) 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)) -- 2.39.5