update packages

lisp/treemacs/treemacs-dom.el

@@ -16,7 +16,8 @@
 ;; along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 ;;; Commentary:
-;; Basically this: https://github.com/Alexander-Miller/treemacs/issues/143
+
+;; Basically this: https://github.com/Alexander-Miller/treemacs/issues/143.
 
 ;;; Code:
 
@@ -123,7 +124,7 @@ SELF: Dom Node Struct"
        ret))))
 
 (define-inline treemacs-on-expand (key pos)
-  "Rearrange the dom when node at KEY with POS is expanded.
+  "Re-arrange the dom when node at KEY with POS is expanded.
 
 KEY: Node Path
 POS: Marker"
@@ -142,9 +143,9 @@ POS: Marker"
        (treemacs-dom-node->insert-into-dom! dom-node)))))
 
 (define-inline treemacs-on-collapse (key &optional purge)
-  "Rearragne the dom when node at KEY was collapsed.
+  "Re-arrange the dom when node at KEY was collapsed.
 Will remove NODE's parent/child link and invalidate the position and refresh
-data of NODE and all its children. When PURGE is non-nil will instead remove
+data of NODE and all its children.  When PURGE is non-nil will instead remove
 NODE and its children from the dom.
 
 KEY: Node Path
@@ -166,7 +167,7 @@ Purge: Boolean"
 
 (define-inline treemacs--on-purged-collapse (dom-node)
   "Run when a DOM-NODE is collapsed with a purge (prefix) argument.
-Will remove all of DOM-NODE's children from the dom.
+Will remove all the children of DOM-NODE from the dom.
 
 DOM-NODE: Dom Node Struct"
   (inline-letevals (dom-node)
@@ -243,9 +244,10 @@ levels the one currently visiting.
 NODE: Dom Node Struct
 FN: (Dom Node) -> Any"
   (declare (indent 1))
-  (funcall fn node)
-  (dolist (it (treemacs-dom-node->children node))
-    (treemacs-walk-dom it fn)))
+  (-let [children (treemacs-dom-node->children node)]
+    (funcall fn node)
+    (dolist (it children)
+      (treemacs-walk-dom it fn))))
 
 (defun treemacs-walk-dom-exclusive (node fn)
   "Same as `treemacs-walk-dom', but start NODE will not be passed to FN.