diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2009-02-18 18:36:11 +0000 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2009-02-18 18:36:11 +0000 |
| commit | 1e3d93868651e1b0233df524027589a8fb34c528 (patch) | |
| tree | 52e7a11075e94a157f85ade13f8d8a6460172e9e /lisp/cus-edit.el | |
| parent | 3ef3d89deba5a62846d9309aeddccddfbf1e56a1 (diff) | |
| download | emacs-1e3d93868651e1b0233df524027589a8fb34c528.tar.gz emacs-1e3d93868651e1b0233df524027589a8fb34c528.tar.bz2 emacs-1e3d93868651e1b0233df524027589a8fb34c528.zip | |
(custom-group-value-create): Insert some
informatory text in the WIDGET-misses-doc-string case.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 3c2985a3b9b..76a021ec1c0 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -4006,8 +4006,11 @@ If GROUPS-ONLY non-nil, return only those members that are groups." (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 "--------") |