Function: treemacs-remove-annotation-suffix--inliner

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

Signature

(treemacs-remove-annotation-suffix--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 'old-suffixes
				    (list 'treemacs-annotation->suffix
					  'ann))
			      (list 'new-suffixes
				    (list '--reject-first
					  (list 'string= source
						(list 'car 'it))
					  'old-suffixes)))
			     (list 'if 'new-suffixes
				   (list 'setf
					 (list
					  'treemacs-annotation->suffix
					  'ann)
					 'new-suffixes
					 (list
					  'treemacs-annotation->suffix-value
					  'ann)
					 (list 'mapconcat
					       (list 'function
						     'identity)
					       (list 'mapcar
						     (list 'function
							   'cdr)
						     (list
						      'treemacs-annotation->suffix
						      'ann))
					       " "))
				   (list 'setf
					 (list
					  'treemacs-annotation->suffix
					  'ann)
					 nil
					 (list
					  'treemacs-annotation->suffix-value
					  'ann)
					 nil))))))
	     (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)]