Function: treemacs-remove-annotation-face--inliner

treemacs-remove-annotation-face--inliner is a function defined in treemacs-annotations.el.

Signature

(treemacs-remove-annotation-face--inliner INLINE--FORM PATH SOURCE)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-annotations.el
;; Could not find source code, showing raw function object.
#[(inline--form path source)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp path)
	  (path
	   (if (macroexp-copyable-p exp) exp (make-symbol "path")))
	  (body
	   (let*
	       ((exp source)
		(source
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "source")))
		(body
		 (list '-when-let
		       (list 'ann (list 'treemacs-get-annotation path))
		       (list 'let*
			     (list
			      (list 'git-face
				    (list
				     'treemacs-annotation->git-face
				     'ann))
			      (list 'old-faces
				    (list 'treemacs-annotation->face
					  'ann))
			      (list 'new-faces
				    (list '--reject-first
					  (list 'string= source
						(list 'car 'it))
					  'old-faces)))
			     (list 'if 'new-faces
				   (list 'setf
					 (list
					  'treemacs-annotation->face
					  'ann)
					 'new-faces
					 (list
					  'treemacs-annotation->face-value
					  'ann)
					 (list 'append
					       (list 'mapcar
						     (list 'function
							   'cdr)
						     'new-faces)
					       'git-face))
				   (list 'setf
					 (list
					  'treemacs-annotation->face
					  'ann)
					 nil
					 (list
					  'treemacs-annotation->face-value
					  'ann)
					 'git-face))))))
	     (if (eq source exp) body
	       (macroexp-let* (list (list source exp)) body)))))
       (if (eq path exp) body
	 (macroexp-let* (list (list path exp)) body)))))
  (t)]