(custom-group-value-create): Insert some

informatory text in the WIDGET-misses-doc-string case.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 236bd354b1706b5b3551b392ab91286d25ec80a2..8dfb3cc1503ce7c7cab653b66f6f578c9d901715 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 3c2985a3b9b88f7fb11468c425d4a1343873ea19..76a021ec1c0c25e0c890885c9e9f372a18a05e81 100644 (file)
--- 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 "--------")