Mercurial > emacs

changeset 65649:e2b8d96a5a4f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tree-widget-value-create): Fix previous change.
author David Ponce <david@dponce.com>
date Thu, 22 Sep 2005 09:54:54 +0000
parents cb6f533e7296
children c30fdfca087f
files lisp/tree-widget.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/tree-widget.el	Thu Sep 22 09:54:17 2005 +0000
+++ b/lisp/tree-widget.el	Thu Sep 22 09:54:54 2005 +0000
@@ -651,7 +651,9 @@
           (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 @@
       (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))