Function: treemacs--on-file-deletion--inliner

treemacs--on-file-deletion--inliner is a function defined in treemacs-core-utils.el.

Signature

(treemacs--on-file-deletion--inliner INLINE--FORM PATH &optional NO-BUFFER-DELETE)

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 path &optional no-buffer-delete)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp path)
	  (path
	   (if (macroexp-copyable-p exp) exp (make-symbol "path")))
	  (body
	   (let*
	       ((exp no-buffer-delete)
		(no-buffer-delete
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "no-buffer-delete")))
		(body
		 (list 'progn (list 'treemacs--delete-annotation path)
		       (list 'unless no-buffer-delete
			     (list
			      'treemacs--kill-buffers-after-deletion
			      path t))
		       (list 'treemacs--stop-watching path t)
		       (list 'unless
			     (list 'with-no-warnings
				   'treemacs-filewatch-mode)
			     (list 'treemacs-run-in-every-buffer
				   (list 'treemacs-on-collapse path t)))
		       (list 'when
			     (list
			      'treemacs--non-simple-git-mode-enabled)
			     (list 'treemacs-run-in-every-buffer
				   (list
				    'treemacs-update-single-file-git-state
				    (list 'treemacs--parent-dir path)))))))
	     (if (eq no-buffer-delete exp) body
	       (macroexp-let* (list (list no-buffer-delete exp)) body)))))
       (if (eq path exp) body
	 (macroexp-let* (list (list path exp)) body)))))
  (t)]