diff options
| author | Chong Yidong | 2007-06-15 16:27:23 +0000 |
|---|---|---|
| committer | Chong Yidong | 2007-06-15 16:27:23 +0000 |
| commit | 511ab56a1ce5a4a2cea73953e755404f0ed32b65 (patch) | |
| tree | c8a0ddb4d8ff46b3f2c2e6e13497026dd13dff49 | |
| parent | 1f0abf8fd2220cb04f59201587532c0725692bb8 (diff) | |
| download | emacs-511ab56a1ce5a4a2cea73953e755404f0ed32b65.tar.gz emacs-511ab56a1ce5a4a2cea73953e755404f0ed32b65.zip | |
(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 6addacee3cb..a69ebdc85e9 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el | |||
| @@ -2956,11 +2956,10 @@ Optional ARGS specifies additional keyword arguments for the | |||
| 2956 | (insert-char ?\s indent)) | 2956 | (insert-char ?\s indent)) |
| 2957 | (unless (or (numberp doc-indent) (null doc-indent)) | 2957 | (unless (or (numberp doc-indent) (null doc-indent)) |
| 2958 | (setq doc-indent 0)) | 2958 | (setq doc-indent 0)) |
| 2959 | (setq indent (widget-get widget :documentation-indent)) | ||
| 2960 | (widget-put widget :buttons | 2959 | (widget-put widget :buttons |
| 2961 | (cons (apply 'widget-create-child-and-convert | 2960 | (cons (apply 'widget-create-child-and-convert |
| 2962 | widget 'documentation-string | 2961 | widget 'documentation-string |
| 2963 | :indent indent | 2962 | :indent doc-indent |
| 2964 | (nconc args (list doc))) | 2963 | (nconc args (list doc))) |
| 2965 | (widget-get widget :buttons)))))) | 2964 | (widget-get widget :buttons)))))) |
| 2966 | 2965 | ||