Function: treemacs-on-collapse--inliner

treemacs-on-collapse--inliner is a function defined in treemacs-dom.el.

Signature

(treemacs-on-collapse--inliner INLINE--FORM KEY &optional PURGE)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-dom.el
;; Could not find source code, showing raw function object.
#[(inline--form key &optional purge)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp key)
	  (key (if (macroexp-copyable-p exp) exp (make-symbol "key")))
	  (body
	   (let*
	       ((exp purge)
		(purge
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "purge")))
		(body
		 (list 'let*
		       (list
			(list 'dom-node
			      (list 'treemacs-find-in-dom key))
			(list 'children
			      (list 'treemacs-dom-node->children
				    'dom-node)))
		       (list '-when-let
			     (list 'parent-dom-node
				   (list 'treemacs-dom-node->parent
					 'dom-node))
			     (list 'setf
				   (list
				    'treemacs-dom-node->reentry-nodes
				    'parent-dom-node)
				   (list 'delete 'dom-node
					 (list
					  'treemacs-dom-node->reentry-nodes
					  'parent-dom-node))))
		       (list 'cond
			     (list purge
				   (list 'treemacs--on-purged-collapse
					 'dom-node))
			     (list 'children
				   (list
				    'treemacs--on-collapse-of-node-with-children
				    'dom-node))
			     (list t
				   (list
				    'treemacs--on-collapse-of-node-without-children
				    'dom-node))))))
	     (if (eq purge exp) body
	       (macroexp-let* (list (list purge exp)) body)))))
       (if (eq key exp) body
	 (macroexp-let* (list (list key exp)) body)))))
  (t)]