mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

(custom-group-value-create): Don't throw an error

Browse source 
when WIDGET has no doc-string.  (Bug#2356)
This commit is contained in:
Martin Rudalics 2009-02-18 12:55:35 +00:00
parent 0d3e93a66f
commit c19aae894a
2 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2009-02-18 Martin Rudalics <rudalics@gmx.at>
* cus-edit.el (custom-group-value-create): Don't throw an error
when WIDGET has no doc-string. (Bug#2356)
2009-02-18 Juanma Barranquero <lekktu@gmail.com>
* progmodes/cc-menus.el (imenu-progress-message):

13
lisp/cus-edit.el
View file

@ -3877,7 +3877,8 @@ If GROUPS-ONLY non-nil, return only those members that are groups."
(symbol (widget-value widget))
(members (custom-group-members symbol
(and (eq custom-buffer-style 'tree)
custom-browse-only-groups))))
custom-browse-only-groups)))
(doc (widget-docstring widget)))
(cond ((and (eq custom-buffer-style 'tree)
(eq state 'hidden)
(or members (custom-unloaded-widget-p widget)))
@ -4005,8 +4006,8 @@ If GROUPS-ONLY non-nil, return only those members that are groups."
(let ((start (point)))
(insert tag " group: ")
(widget-specify-sample widget start (point)))
(if (< (length (widget-docstring widget)) 50)
(insert (widget-docstring widget)))
(when (and doc (< (length doc) 50))
(insert doc))
;; Create visibility indicator.
(unless (eq custom-buffer-style 'links)
(insert "--------")
@ -4033,9 +4034,9 @@ If GROUPS-ONLY non-nil, return only those members that are groups."
;; Update buttons.
(widget-put widget :buttons buttons)
;; Insert documentation.
(if (>= (length (widget-docstring widget)) 50)
(widget-add-documentation-string-button
widget :visibility-widget 'custom-visibility))
(when (and doc (>= (length doc) 50))
(widget-add-documentation-string-button
widget :visibility-widget 'custom-visibility))
;; Parent groups.
(if nil ;;; This should test that the buffer