Function: treemacs--set-refresh-flags--inliner

treemacs--set-refresh-flags--inliner is a function defined in treemacs-filewatch-mode.el.

Signature

(treemacs--set-refresh-flags--inliner INLINE--FORM LOCATION TYPE PATH)

Source Code

;; Defined in ~/.emacs.d/elpa/treemacs-20251226.1307/treemacs-filewatch-mode.el
;; Could not find source code, showing raw function object.
#[(inline--form location type path)
  ((ignore inline--form)
   (catch 'inline--just-use
     (let*
	 ((exp location)
	  (location
	   (if (macroexp-copyable-p exp) exp (make-symbol "location")))
	  (body
	   (let*
	       ((exp type)
		(type
		 (if (macroexp-copyable-p exp) exp
		   (make-symbol "type")))
		(body
		 (let*
		     ((exp path)
		      (path
		       (if (macroexp-copyable-p exp) exp
			 (make-symbol "path")))
		      (body
		       (list 'progn
			     (list 'when
				   (list 'ht-get
					 'treemacs--collapsed-filewatch-index
					 path)
				   (list 'ht-remove!
					 'treemacs--collapsed-filewatch-index
					 path)
				   (list 'treemacs--stop-watching path))
			     (list 'treemacs-run-in-every-buffer
				   (list '--when-let
					 (list 'treemacs-find-in-dom
					       location)
					 (list 'let
					       (list
						(list 'current-flag
						      (list 'assoc
							    path
							    (list
							     'treemacs-dom-node->refresh-flag
							     'it))))
					       (list 'pcase
						     (list 'cdr
							   'current-flag)
						     (list
						      (list '\` nil)
						      (list 'push
							    (list
							     'cons
							     path type)
							    (list
							     'treemacs-dom-node->refresh-flag
							     'it)))
						     (list
						      (list 'quote
							    'created)
						      (list 'when
							    (list 'eq
								  type
								  (list
								   'quote
								   'deleted))
							    (list
							     'setf
							     (list
							      'cdr
							      'current-flag)
							     (list
							      'quote
							      'deleted))))
						     (list
						      (list 'quote
							    'deleted)
						      (list 'when
							    (list 'eq
								  type
								  (list
								   'quote
								   'created))
							    (list
							     'setf
							     (list
							      'cdr
							      'current-flag)
							     (list
							      'quote
							      'created))))
						     (list
						      (list 'quote
							    'changed)
						      (list 'when
							    (list 'eq
								  type
								  (list
								   'quote
								   'deleted))
							    (list
							     'setf
							     (list
							      'cdr
							      'current-flag)
							     (list
							      'quote
							      'deleted)))))))
				   (list
				    'treemacs--start-filewatch-timer)))))
		   (if (eq path exp) body
		     (macroexp-let* (list (list path exp)) body)))))
	     (if (eq type exp) body
	       (macroexp-let* (list (list type exp)) body)))))
       (if (eq location exp) body
	 (macroexp-let* (list (list location exp)) body)))))
  (t)]