mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 00:51:50 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Chong Yidong 2007-07-05 22:10:48 +00:00
parent 61af0f396e
commit 33f400c315
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/wid-edit.el
View file

@ -2910,6 +2910,8 @@ link for that string."
(let ((before (substring doc 0 (match-beginning 0))) (let ((before (substring doc 0 (match-beginning 0)))
(after (substring doc (match-beginning 0))) (after (substring doc (match-beginning 0)))
button) button)
(when (and indent (not (zerop indent)))
(insert-char ?\s indent))
(insert before ?\s) (insert before ?\s)
(widget-documentation-link-add widget start (point)) (widget-documentation-link-add widget start (point))
(setq button (setq button
@ -2928,6 +2930,8 @@ link for that string."
(insert after) (insert after)
(widget-documentation-link-add widget start (point))) (widget-documentation-link-add widget start (point)))
(widget-put widget :buttons (list button))) (widget-put widget :buttons (list button)))
(when (and indent (not (zerop indent)))
(insert-char ?\s indent))
(insert doc) (insert doc)
(widget-documentation-link-add widget start (point)))) (widget-documentation-link-add widget start (point))))
(insert ?\n)) (insert ?\n))