Function: treemacs-on-expand--inliner

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

Signature

(treemacs-on-expand--inliner INLINE--FORM KEY POS)

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 pos)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp key)
	  (key (if (macroexp-copyable-p exp) exp (make-symbol "key")))
	  (body
	   (let*
	       ((exp pos)
		(pos
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "pos")))
		(body
		 (list '-if-let
		       (list 'dom-node
			     (list 'treemacs-find-in-dom key))
		       (list 'progn
			     (list 'setf
				   (list 'treemacs-dom-node->position
					 'dom-node)
				   pos)
			     (list 'dolist
				   (list 'collapse-key
					 (list
					  'treemacs-dom-node->collapse-keys
					  'dom-node))
				   (list 'setf
					 (list
					  'treemacs-dom-node->position
					  (list 'treemacs-find-in-dom
						'collapse-key))
					 pos))
			     (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 'cons 'dom-node
					       (list
						'treemacs-dom-node->reentry-nodes
						'parent-dom-node)))))
		       (list 'setf 'dom-node
			     (list 'treemacs-dom-node->create! :key
				   key :position pos))
		       (list 'treemacs-dom-node->insert-into-dom!
			     'dom-node))))
	     (if (eq pos exp) body
	       (macroexp-let* (list (list pos exp)) body)))))
       (if (eq key exp) body
	 (macroexp-let* (list (list key exp)) body)))))
  (t)]