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)

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 734ed13b9d37143440aa77c1083f0dd03e79f0f8..c57a0bc6c5595b16e236d7d5827d2afda4e5895a 100644 (file)
--- 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