From: Yuan Fu <casouri@gmail.com>
Date: Fri, 4 Nov 2022 16:56:38 +0000 (-0700)
Subject: Add treesit-indent-error
X-Git-Tag: emacs-29.0.90~1718
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ad4c4009e1c7360df6f59175b1a701d7f4ecfae;p=emacs.git

Add treesit-indent-error

* lisp/treesit.el (treesit-indent-error): New error.
(treesit--simple-indent-eval): Signal treesit-indent-error.
---

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 21b19299d87..d6feca2f4a3 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -877,6 +877,10 @@ If LOUDLY is non-nil, display some debugging information."
 
 ;;; Indent
 
+(define-error 'treesit-indent-error
+              "Generic tree-sitter indentation error"
+              'treesit-error)
+
 (defvar treesit--indent-verbose nil
   "If non-nil, log progress when indenting.")
 
@@ -1105,7 +1109,8 @@ the function."
              exp
            ;; Matchers only return lambdas, anchors only return
            ;; integer, so we should never see a variable.
-           (error "Couldn't find the preset corresponding to %s" exp)))
+           (signal 'treesit-indent-error
+                   '("Couldn't find the preset corresponding to %s") exp)))
         (t exp)))
 
 ;; This variable might seem unnecessary: why split