mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-30 11:09:23 +00:00
Code Issues Releases Activity

(tree-widget-value-create): Save the converted tree :node widget.

Browse Source
This commit is contained in:
David Ponce 2005-09-19 09:52:32 +00:00
parent 900d169800
commit 4ff094a826
2 changed files with 15 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2005-09-19 David Ponce <david@dponce.com>
* tree-widget.el (tree-widget-value-create): Save the converted
tree :node widget.
2005-09-19 Juanma Barranquero <lekktu@gmail.com>
* progmodes/sh-script.el (sh-blink): Fix spurious reference to

18
lisp/tree-widget.el
View File

@ -647,14 +647,15 @@ This hook should be local in the buffer setup to display widgets.")
(when (and (not args) xpandr)
(setq args (mapcar 'widget-convert (funcall xpandr tree)))
(widget-put tree :args args))
;; Defer the node widget creation after icon creation.
(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))
;; At this point the node widget isn't yet created.
:node (setq node (widget-convert node)))
tree (widget-get tree (if args :open-icon :empty-icon)))
buttons)
;; Create the tree node widget.
(push (widget-create-child tree node) children)
(push (widget-create-child tree (widget-get tree :node))
children)
;; Update the icon :node with the created node widget.
(widget-put (car buttons) :node (car children))
;; Create the tree children.
@ -696,14 +697,15 @@ This hook should be local in the buffer setup to display widgets.")
;; Update the icon :node with the created node widget.
(widget-put (car buttons) :node (car children)))))
;;;; Collapsed node.
;; Defer the node widget creation after icon creation.
(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)
;; At this point the node widget isn't yet created.
:node (setq node (widget-convert node)))
tree (widget-get tree :close-icon))
buttons)
;; Create the tree node widget.
(push (widget-create-child tree node) children)
(push (widget-create-child tree (widget-get tree :node))
children)
;; Update the icon :node with the created node widget.
(widget-put (car buttons) :node (car children)))
;; Save widget children and buttons. The tree-widget :node child