From a8808e8a3d4c593fcf14107e2cab453834595fa5 Mon Sep 17 00:00:00 2001 From: Yuan Fu Date: Tue, 11 Mar 2025 01:15:20 -0700 Subject: [PATCH] Handle deleted parser in treesit-explore-mode (bug#76398) (Unrelated to the topic of the bug, but mentioned in the thread.) * lisp/treesit.el (treesit--explorer-refresh-1): New function. (treesit--explorer-refresh): Handle 'treesit-parser-deleted' error. (cherry picked from commit 0bcc67c8305aa649be54e036fbe475bb82ca3a8b) --- lisp/treesit.el | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/treesit.el b/lisp/treesit.el index 734ed13b9d3..c57a0bc6c55 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el @@ -4518,7 +4518,7 @@ in the region." (<= (treesit-node-end n) end)) t t))))) -(defun treesit--explorer-refresh () +(defun treesit--explorer-refresh-1 () "Update the syntax tree buffer." (when (and treesit-explore-mode (buffer-live-p treesit--explorer-buffer)) @@ -4569,6 +4569,19 @@ in the region." (set-window-start window (point)))) (set-window-point window pos))))))) +(defun treesit--explorer-refresh () + "Update the syntax tree buffer." + (condition-case nil + (treesit--explorer-refresh-1) + (treesit-parser-deleted + (when treesit--explorer-buffer + (with-current-buffer treesit--explorer-buffer + (let ((inhibit-read-only t)) + (goto-char (point-min)) + (unless (looking-at "Parser is deleted") + (insert (propertize "Parser is deleted\n" + 'face 'error))))))))) + (defun treesit--explorer-post-command (&rest _) "Post-command function that runs in the source buffer." (when treesit-explore-mode -- 2.39.5