mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(tree-widget-value-create): Fix previous change.

Browse Source
This commit is contained in:
David Ponce 2005-09-22 09:54:54 +00:00
parent e5534f18e8
commit 38d0d9879c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/tree-widget.el
View File

@ -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))