Mercurial > emacs
changeset 102104:be12df124dbd
(custom-group-value-create): Insert some
informatory text in the WIDGET-misses-doc-string case.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Wed, 18 Feb 2009 18:36:11 +0000 |
| parents | 175782f3fc48 |
| children | a5023e8bbb1e |
| files | lisp/ChangeLog lisp/cus-edit.el |
| diffstat | 2 files changed, 10 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Feb 18 15:51:22 2009 +0000 +++ b/lisp/ChangeLog Wed Feb 18 18:36:11 2009 +0000 @@ -1,3 +1,8 @@ +2009-02-18 Martin Rudalics <rudalics@gmx.at> + + * cus-edit.el (custom-group-value-create): Insert some + informatory text in the WIDGET-misses-doc-string case. + 2009-02-18 Sam Steingold <sds@gnu.org> * progmodes/compile.el: Require comint at top level to fix the
--- a/lisp/cus-edit.el Wed Feb 18 15:51:22 2009 +0000 +++ b/lisp/cus-edit.el Wed Feb 18 18:36:11 2009 +0000 @@ -4006,8 +4006,11 @@ (let ((start (point))) (insert tag " group: ") (widget-specify-sample widget start (point))) - (when (and doc (< (length doc) 50)) - (insert doc)) + (cond + ((not doc) + (insert " Group definition missing. ")) + ((< (length doc) 50) + (insert doc))) ;; Create visibility indicator. (unless (eq custom-buffer-style 'links) (insert "--------")