comparison lisp/cus-edit.el @ 18368:14b3e7eb6a17

(custom-group-value-create): Use group-visibility widget.
author Richard M. Stallman <rms@gnu.org>
date Sat, 21 Jun 1997 18:23:40 +0000
parents f4682a047be1
children 74558272517b
comparison
equal deleted inserted replaced
18367:f4682a047be1 18368:14b3e7eb6a17
2485 widget 'custom-group-link 2485 widget 'custom-group-link
2486 :tag "Show" 2486 :tag "Show"
2487 symbol) 2487 symbol)
2488 buttons) 2488 buttons)
2489 (push (widget-create-child-and-convert 2489 (push (widget-create-child-and-convert
2490 widget 'visibility 2490 widget 'group-visibility
2491 :help-echo "Show members of this group." 2491 :help-echo "Show members of this group."
2492 :action 'custom-toggle-parent 2492 :action 'custom-toggle-parent
2493 (not (eq state 'hidden))) 2493 (not (eq state 'hidden)))
2494 buttons)) 2494 buttons))
2495 (insert " \n") 2495 (insert " \n")