Mercurial > emacs

diff lisp/cus-edit.el @ 102104:be12df124dbd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
line wrap: on
line diff
--- 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 "--------")