branch: externals/taxy
commit c7b830cf48d639be8fb7ee0f55f53341cb185102
Author: Adam Porter <[email protected]>
Commit: Adam Porter <[email protected]>
Fix: (taxy-lift)
Should really test more carefully before pushing, but enthusiasm...
---
taxy.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/taxy.el b/taxy.el
index 614be03ff8..0ef8d5b923 100644
--- a/taxy.el
+++ b/taxy.el
@@ -137,10 +137,10 @@ operates recursively within TAXY's sub-taxys."
(cl-labels ((rec (taxy)
(mapc #'rec (taxy-taxys taxy))
(dolist (sub-taxy (taxy-taxys taxy))
- (when (< 0 (length (taxy-items sub-taxy))
taxy-lift-min-items)
+ (when (and (not (taxy-taxys sub-taxy))
+ (< 0 (length (taxy-items sub-taxy))
taxy-lift-min-items))
(cl-callf2 append (taxy-items sub-taxy) (taxy-items taxy))
- (cl-callf2 remq sub-taxy (taxy-taxys taxy))
- (setf (taxy-items sub-taxy) nil)))))
+ (cl-callf2 remq sub-taxy (taxy-taxys taxy))))))
(rec taxy))
taxy)
