branch: elpa/treeview
commit 3038ebf96e4003569d108ef109be19ce86c04b6c
Author: Tilman Rassy <tilman.ra...@googlemail.com>
Commit: Tilman Rassy <tilman.ra...@googlemail.com>
Fixed bug when removing first child
---
treeview.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/treeview.el b/treeview.el
index 3ade22cb9d..14d0ff10b5 100644
--- a/treeview.el
+++ b/treeview.el
@@ -701,7 +701,7 @@ This is an auxiliary function used in
`treeview-display-node'."
(treeview-set-node-prop node 'control-overlay control-overlay)
(treeview-set-node-prop node 'icon-overlay icon-overlay)
(treeview-set-node-prop node 'label-overlay label-overlay)
- (treeview-set-node-prop node 'node-line-overlay node-line-overlay) ))
+ (treeview-set-node-prop node 'node-line-overlay node-line-overlay) ) )
(defun treeview-set-node-end-after-display (node)
"Set the insertion type of the end marker of NODE and its descendants to t.
@@ -811,11 +811,15 @@ The main purpose of this function is to implement the
functions
(treeview-set-node-prop node 'start nil)
(treeview-set-node-prop node 'end nil)))
+(defun treeview-remove-child (node child)
+ "Remove CHILD from the children of NODE."
+ (treeview-set-node-children node (delq child (treeview-get-node-children
node))))
+
(defun treeview-remove-node (node)
"Remove NODE from the tree.
NODE is also erased from the display."
(let ( (parent (treeview-get-node-parent node) ) )
- (if parent (delq node (treeview-get-node-children parent)))
+ (when parent (treeview-remove-child parent node))
(treeview-undisplay-node node t)))
(defun treeview-redisplay-node (node)
