Function: treemacs--remove-annotation-if-empty--inliner

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

Signature

(treemacs--remove-annotation-if-empty--inliner INLINE--FORM ANN PATH)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-annotations.el
;; Could not find source code, showing raw function object.
#[(inline--form ann path)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp ann)
	  (ann (if (macroexp-copyable-p exp) exp (make-symbol "ann")))
	  (body
	   (let*
	       ((exp path)
		(path
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "path")))
		(body
		 (list 'when
		       (list 'and
			     (list 'null
				   (list 'treemacs-annotation->face
					 ann))
			     (list 'null
				   (list
				    'treemacs-annotation->git-face ann))
			     (list 'null
				   (list 'treemacs-annotation->suffix
					 ann)))
		       (list 'ht-remove! 'treemacs--annotation-store
			     path))))
	     (if (eq path exp) body
	       (macroexp-let* (list (list path exp)) body)))))
       (if (eq ann exp) body
	 (macroexp-let* (list (list ann exp)) body)))))
  (t)]