diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2007-07-05 22:12:47 +0000 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2007-07-05 22:12:47 +0000 |
| commit | 3e318d972dc501cc609976db863bffb196e6ab0b (patch) | |
| tree | a87e2f5bc784db7fef9f3e1c56e58f37dc9515c3 /lisp/wid-edit.el | |
| parent | 5631b5b8467bd39aa299cf9c366cd1c6c9deb325 (diff) | |
| download | emacs-3e318d972dc501cc609976db863bffb196e6ab0b.tar.gz | |
(widget-documentation-string-value-create): Insert spaces for
indentation.
Diffstat (limited to 'lisp/wid-edit.el')
| -rw-r--r-- | lisp/wid-edit.el | 4 |
1 files changed, 4 insertions, 0 deletions
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)) |