Function: treemacs-dom-node->remove-collapse-keys!--inliner

treemacs-dom-node->remove-collapse-keys!--inliner is a function defined in treemacs-dom.el.

Signature

(treemacs-dom-node->remove-collapse-keys!--inliner INLINE--FORM SELF KEYS)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-dom.el
;; Could not find source code, showing raw function object.
#[(inline--form self keys)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp self)
	  (self
	   (if (macroexp-copyable-p exp) exp (make-symbol "self")))
	  (body
	   (let*
	       ((exp keys)
		(keys
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "keys")))
		(body
		 (list 'progn
		       (list 'dolist (list 'key keys)
			     (list 'ht-remove! 'treemacs-dom 'key))
		       (list 'setf
			     (list 'treemacs-dom-node->collapse-keys
				   self)
			     (list '--reject (list 'member 'it keys)
				   (list
				    'treemacs-dom-node->collapse-keys
				    self))))))
	     (if (eq keys exp) body
	       (macroexp-let* (list (list keys exp)) body)))))
       (if (eq self exp) body
	 (macroexp-let* (list (list self exp)) body)))))
  (t)]