Function: treemacs--button-symbol-switch--inliner

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

Signature

(treemacs--button-symbol-switch--inliner INLINE--FORM NEW-SYMBOL)

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 new-symbol)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp new-symbol)
	  (new-symbol
	   (if (macroexp-copyable-p exp) exp
	     (make-symbol "new-symbol")))
	  (body
	   (list 'save-excursion
		 (list 'let
		       (list (list 'len (list 'length new-symbol)))
		       (list 'goto-char
			     (list '-
				   (list 'treemacs-button-start
					 (list 'next-button
					       (list
						'line-beginning-position)
					       t))
				   'len))
		       (list 'insert new-symbol)
		       (list 'delete-char 'len)))))
       (if (eq new-symbol exp) body
	 (macroexp-let* (list (list new-symbol exp)) body)))))
  (t)]