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 |