Function: treemacs--git-face-quick-change--inliner

treemacs--git-face-quick-change--inliner is a function defined in treemacs-async.el.

Signature

(treemacs--git-face-quick-change--inliner INLINE--FORM PATH GIT-FACE &optional GIT-CACHE)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-async.el
;; Could not find source code, showing raw function object.
#[(inline--form path git-face &optional git-cache)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp path)
	  (path
	   (if (macroexp-copyable-p exp) exp (make-symbol "path")))
	  (body
	   (let*
	       ((exp git-face)
		(git-face
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "git-face")))
		(body
		 (let*
		     ((exp git-cache)
		      (git-cache
		       (if (macroexp-copyable-p exp) exp
			 (make-symbol "git-cache")))
		      (body
		       (list 'let
			     (list
			      (list 'git-cache
				    (list 'or git-cache
					  (list 'ht-get
						'treemacs--git-cache
						(list
						 'treemacs--parent-dir
						 path))))
			      (list 'btn
				    (list 'treemacs-find-visible-node
					  path)))
			     (list 'when 'git-cache
				   (list 'ht-set! 'git-cache path
					 git-face))
			     (list 'when 'btn
				   (list
				    'treemacs--do-apply-annotation
				    'btn git-face)))))
		   (if (eq git-cache exp) body
		     (macroexp-let* (list (list git-cache exp)) body)))))
	     (if (eq git-face exp) body
	       (macroexp-let* (list (list git-face exp)) body)))))
       (if (eq path exp) body
	 (macroexp-let* (list (list path exp)) body)))))
  (t)]