[Emacs-diffs] Changes to emacs/lisp/tree-widget.el

[David Ponce]

Index: emacs/lisp/tree-widget.el
diff -c emacs/lisp/tree-widget.el:1.10 emacs/lisp/tree-widget.el:1.11
*** emacs/lisp/tree-widget.el:1.10      Mon Sep 19 09:51:31 2005
--- emacs/lisp/tree-widget.el   Thu Sep 22 09:54:54 2005
***************
*** 651,657 ****
            (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)))
                  buttons)
            ;; Create the tree node widget.
            (push (widget-create-child tree (widget-get tree :node))
--- 651,659 ----
            (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))
!                  ;; 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,707 ****
        (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))
              buttons)
        ;; Create the tree node widget.
        (push (widget-create-child tree (widget-get tree :node))
--- 703,711 ----
        (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)
!              ;; 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))