From 33f400c3152114b1e4368425e0c57e2ae213558c Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Thu, 5 Jul 2007 22:10:48 +0000 Subject: [PATCH] (widget-documentation-string-value-create): Insert indentation spaces. --- lisp/wid-edit.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index a69ebdc85e9..f58b1515f7b 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.2