Commit 1e3d9386 authored by Martin Rudalics's avatar Martin Rudalics
Browse files

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

informatory text in the WIDGET-misses-doc-string case.
parent 3ef3d89d
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
......
......@@ -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 "--------")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment