Function: treemacs--follow-path-elements--inliner

treemacs--follow-path-elements--inliner is a function defined in treemacs-core-utils.el.

Signature

(treemacs--follow-path-elements--inliner INLINE--FORM BTN ITEMS)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-core-utils.el
;; Could not find source code, showing raw function object.
#[(inline--form btn items)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp btn)
	  (btn (if (macroexp-copyable-p exp) exp (make-symbol "btn")))
	  (body
	   (let*
	       ((exp items)
		(items
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "items")))
		(body
		 (list 'cl-block 'search
		       (list 'when
			     (list 'treemacs-is-node-collapsed? btn)
			     (list 'goto-char btn)
			     (list 'funcall
				   (list 'cdr
					 (list 'assq
					       (list
						'treemacs-button-get
						btn :state)
					       'treemacs-TAB-actions-config))))
		       (list 'while items
			     (list 'let
				   (list
				    (list 'item (list 'pop items)))
				   (list 'setq btn
					 (list
					  'treemacs-first-child-node-where
					  btn
					  (list 'equal
						(list
						 'treemacs-button-get
						 'child-btn :key)
						'item)))
				   (list 'unless btn
					 (list 'cl-return-from 'search
					       (list 'quote
						     'follow-failed)))
				   (list 'goto-char btn)
				   (list 'when
					 (list 'and items
					       (list
						'treemacs-is-node-collapsed?
						btn))
					 (list 'funcall
					       (list 'cdr
						     (list 'assq
							   (list
							    'treemacs-button-get
							    btn :state)
							   'treemacs-TAB-actions-config))))))
		       btn)))
	     (if (eq items exp) body
	       (macroexp-let* (list (list items exp)) body)))))
       (if (eq btn exp) body
	 (macroexp-let* (list (list btn exp)) body)))))
  (t)]