Function: treemacs--remove-project-from-current-workspace--inliner

treemacs--remove-project-from-current-workspace--inliner is a function defined in treemacs-workspaces.el.

Signature

(treemacs--remove-project-from-current-workspace--inliner INLINE--FORM PROJECT)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-workspaces.el
;; Could not find source code, showing raw function object.
#[(inline--form project)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp project)
	  (project
	   (if (macroexp-copyable-p exp) exp (make-symbol "project")))
	  (body
	   (list 'progn
		 (list 'setf
		       (list 'treemacs-workspace->projects
			     (list 'treemacs-current-workspace))
		       (list 'delete project
			     (list 'treemacs-workspace->projects
				   (list 'treemacs-current-workspace))))
		 (list 'dolist (list 'buffer (list 'buffer-list))
		       (list 'with-current-buffer 'buffer
			     (list 'when
				   (list 'equal
					 'treemacs--project-of-buffer
					 project)
				   (list 'setq
					 'treemacs--project-of-buffer
					 nil)))))))
       (if (eq project exp) body
	 (macroexp-let* (list (list project exp)) body)))))
  (t)]