Mercurial > emacs
comparison lisp/cus-edit.el @ 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 | 93915a70e1a4 |
| children | a3817f85a81f |
comparison
equal
deleted
inserted
replaced
| 102103:175782f3fc48 | 102104:be12df124dbd |
|---|---|
| 4004 (insert "/- ") | 4004 (insert "/- ") |
| 4005 ;; Create tag. | 4005 ;; Create tag. |
| 4006 (let ((start (point))) | 4006 (let ((start (point))) |
| 4007 (insert tag " group: ") | 4007 (insert tag " group: ") |
| 4008 (widget-specify-sample widget start (point))) | 4008 (widget-specify-sample widget start (point))) |
| 4009 (when (and doc (< (length doc) 50)) | 4009 (cond |
| 4010 (insert doc)) | 4010 ((not doc) |
| 4011 (insert " Group definition missing. ")) | |
| 4012 ((< (length doc) 50) | |
| 4013 (insert doc))) | |
| 4011 ;; Create visibility indicator. | 4014 ;; Create visibility indicator. |
| 4012 (unless (eq custom-buffer-style 'links) | 4015 (unless (eq custom-buffer-style 'links) |
| 4013 (insert "--------") | 4016 (insert "--------") |
| 4014 (push (widget-create-child-and-convert | 4017 (push (widget-create-child-and-convert |
| 4015 widget 'visibility | 4018 widget 'visibility |