From: Yuan Fu <casouri@gmail.com>
Date: Fri, 4 Nov 2022 16:58:08 +0000 (-0700)
Subject: ; Replace error with signal in treesit.el
X-Git-Tag: emacs-29.0.90~1716
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=784f53a2152181b687f9543ddba9c393dda1c715;p=emacs.git

; Replace error with signal in treesit.el

(or (treesit-parser-create language)
    (error "Cannot find a parser for %s" language))

is turned into

(treesit-parser-create language)

because treesit-parser-create never returns nil.  (We used to use
treesit-get-parser which don't create parser automatically.)

* lisp/treesit.el (treesit-buffer-root-node): Replace error with signal.
---

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 84c3c703273..d7acf6a4284 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -247,10 +247,10 @@ If optional argument LANGUAGE is non-nil, use the first parser
 for LANGUAGE."
   (if-let ((parser
             (or (if language
-                    (or (treesit-parser-create language)
-                        (error "Cannot find a parser for %s" language))
+                    (treesit-parser-create language)
                   (or (car (treesit-parser-list))
-                      (error "Buffer has no parser"))))))
+                      (signal 'treesit-error
+                              '("Buffer has no parser")))))))
       (treesit-parser-root-node parser)))
 
 (defun treesit-filter-child (node pred &optional named)