Mercurial > emacs
comparison lisp/wid-edit.el @ 81444:8429053c4496
(widget-add-documentation-string-button): Fix handling of
documentation indent.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Fri, 15 Jun 2007 16:27:23 +0000 |
| parents | cade0e5b26d6 |
| children | c7f2dc6a69fc 3619e7770f2e |
comparison
equal
deleted
inserted
replaced
| 81443:a71b6149e347 | 81444:8429053c4496 |
|---|---|
| 2954 (and (eq (preceding-char) ?\n) | 2954 (and (eq (preceding-char) ?\n) |
| 2955 indent | 2955 indent |
| 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 |
| 2967 ;;; The Sexp Widgets. | 2966 ;;; The Sexp Widgets. |
| 2968 | 2967 |