Function: treemacs--set-img-property--inliner

treemacs--set-img-property--inliner is a function defined in treemacs-icons.el.

Signature

(treemacs--set-img-property--inliner INLINE--FORM IMAGE PROPERTY VALUE)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-icons.el
;; Could not find source code, showing raw function object.
#[(inline--form image property value)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp image)
	  (image
	   (if (macroexp-copyable-p exp) exp (make-symbol "image")))
	  (body
	   (let*
	       ((exp property)
		(property
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "property")))
		(body
		 (let*
		     ((exp value)
		      (value
		       (if (macroexp-copyable-p exp) exp
			 (make-symbol "value")))
		      (body
		       (list 'progn
			     (list 'plist-put (list 'cdr image)
				   property value)
			     value)))
		   (if (eq value exp) body
		     (macroexp-let* (list (list value exp)) body)))))
	     (if (eq property exp) body
	       (macroexp-let* (list (list property exp)) body)))))
       (if (eq image exp) body
	 (macroexp-let* (list (list image exp)) body)))))
  (t)]