Mercurial > emacs
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") |