diff options
| author | Chong Yidong <[email protected]> | 2007-06-15 16:27:23 +0000 |
|---|---|---|
| committer | Chong Yidong <[email protected]> | 2007-06-15 16:27:23 +0000 |
| commit | 511ab56a1ce5a4a2cea73953e755404f0ed32b65 (patch) | |
| tree | c8a0ddb4d8ff46b3f2c2e6e13497026dd13dff49 | |
| parent | 1f0abf8fd2220cb04f59201587532c0725692bb8 (diff) | |
(widget-add-documentation-string-button): Fix handling of
documentation indent.
| -rw-r--r-- | lisp/wid-edit.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 6addacee3c..a69ebdc85e 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -2956,11 +2956,10 @@ Optional ARGS specifies additional keyword arguments for the (insert-char ?\s indent)) (unless (or (numberp doc-indent) (null doc-indent)) (setq doc-indent 0)) - (setq indent (widget-get widget :documentation-indent)) (widget-put widget :buttons (cons (apply 'widget-create-child-and-convert widget 'documentation-string - :indent indent + :indent doc-indent (nconc args (list doc))) (widget-get widget :buttons)))))) |