Function: treemacs-button-put--inliner

treemacs-button-put--inliner is a function defined in treemacs-core-utils.el.

Signature

(treemacs-button-put--inliner INLINE--FORM BUTTON PROP VAL)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-core-utils.el
;; Could not find source code, showing raw function object.
#[(inline--form button prop val)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp button)
	  (button
	   (if (macroexp-copyable-p exp) exp (make-symbol "button")))
	  (body
	   (let*
	       ((exp prop)
		(prop
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "prop")))
		(body
		 (let*
		     ((exp val)
		      (val
		       (if (macroexp-copyable-p exp) exp
			 (make-symbol "val")))
		      (body
		       (list 'put-text-property
			     (list 'or
				   (list
				    'previous-single-property-change
				    (list '1+ button)
				    (list 'quote 'button))
				   (list 'point-min))
			     (list 'or
				   (list 'next-single-property-change
					 button (list 'quote 'button))
				   (list 'point-max))
			     prop val)))
		   (if (eq val exp) body
		     (macroexp-let* (list (list val exp)) body)))))
	     (if (eq prop exp) body
	       (macroexp-let* (list (list prop exp)) body)))))
       (if (eq button exp) body
	 (macroexp-let* (list (list button exp)) body)))))
  (t)]