Function: treemacs--insert-tag-leaf--inliner

treemacs--insert-tag-leaf--inliner is a function defined in treemacs-tags.el.

Signature

(treemacs--insert-tag-leaf--inliner INLINE--FORM ITEM PATH PREFIX PARENT DEPTH)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-tags.el
;; Could not find source code, showing raw function object.
#[(inline--form item path prefix parent depth)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp item)
	  (item
	   (if (macroexp-copyable-p exp) exp (make-symbol "item")))
	  (body
	   (let*
	       ((exp prefix)
		(prefix
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "prefix")))
		(body
		 (let*
		     ((exp parent)
		      (parent
		       (if (macroexp-copyable-p exp) exp
			 (make-symbol "parent")))
		      (body
		       (let*
			   ((exp depth)
			    (depth
			     (if (macroexp-copyable-p exp) exp
			       (make-symbol "depth")))
			    (body
			     (list 'list prefix
				   (list 'propertize (list 'car item)
					 (list 'quote 'button)
					 (list 'quote (list t))
					 (list 'quote 'category)
					 (list 'quote 'treemacs-button)
					 (list 'quote 'face)
					 (list 'quote
					       'treemacs-tags-face)
					 (list 'quote 'help-echo) nil
					 :path path :key
					 (list 'car item) :state
					 (list 'quote 'tag-node)
					 :parent parent :depth depth
					 :marker (list 'cdr item)))))
			 (if (eq depth exp) body
			   (macroexp-let* (list (list depth exp)) body)))))
		   (if (eq parent exp) body
		     (macroexp-let* (list (list parent exp)) body)))))
	     (if (eq prefix exp) body
	       (macroexp-let* (list (list prefix exp)) body)))))
       (if (eq item exp) body
	 (macroexp-let* (list (list item exp)) body)))))
  (t)]