diff options
| author | David Ponce <david@dponce.com> | 2005-09-22 09:54:54 +0000 |
|---|---|---|
| committer | David Ponce <david@dponce.com> | 2005-09-22 09:54:54 +0000 |
| commit | 38d0d9879c956edcbd3c79db4e34751086f1c040 (patch) | |
| tree | 3315a4da37281778657ce2ee19cf66acc2b2dd9e /lisp/tree-widget.el | |
| parent | e5534f18e8f11e921a2cba37026612019339f216 (diff) | |
| download | emacs-38d0d9879c956edcbd3c79db4e34751086f1c040.tar.gz | |
(tree-widget-value-create): Fix previous change.
Diffstat (limited to 'lisp/tree-widget.el')
| -rw-r--r-- | lisp/tree-widget.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/tree-widget.el b/lisp/tree-widget.el index 28207436688..d29e224f549 100644 --- a/lisp/tree-widget.el +++ b/lisp/tree-widget.el @@ -651,7 +651,9 @@ This hook should be local in the buffer setup to display widgets.") (widget-put tree :node (widget-convert node)) ;; Create the icon widget for the expanded tree. (push (widget-create-child-and-convert - tree (widget-get tree (if args :open-icon :empty-icon))) + tree (widget-get tree (if args :open-icon :empty-icon)) + ;; Pass the node widget to child. + :node (widget-get tree :node)) buttons) ;; Create the tree node widget. (push (widget-create-child tree (widget-get tree :node)) @@ -701,7 +703,9 @@ This hook should be local in the buffer setup to display widgets.") (widget-put tree :node (widget-convert node)) ;; Create the icon widget for the collapsed tree. (push (widget-create-child-and-convert - tree (widget-get tree :close-icon)) + tree (widget-get tree :close-icon) + ;; Pass the node widget to child. + :node (widget-get tree :node)) buttons) ;; Create the tree node widget. (push (widget-create-child tree (widget-get tree :node)) |