From 1e3d93868651e1b0233df524027589a8fb34c528 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Wed, 18 Feb 2009 18:36:11 +0000 Subject: [PATCH] (custom-group-value-create): Insert some informatory text in the WIDGET-misses-doc-string case. --- lisp/ChangeLog | 5 +++++ lisp/cus-edit.el | 7 +++++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 236bd354b17..8dfb3cc1503 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-02-18 Martin Rudalics + + * cus-edit.el (custom-group-value-create): Insert some + informatory text in the WIDGET-misses-doc-string case. + 2009-02-18 Sam Steingold * progmodes/compile.el: Require comint at top level to fix the 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 "--------") -- 2.39.5