Commit 33f400c3 authored by Chong Yidong's avatar Chong Yidong
Browse files

(widget-documentation-string-value-create): Insert indentation spaces.

parent 61af0f39
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment