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 21b19299d87c7ab28bbe461b046a33bc55e80208..d6feca2f4a365b6d086a2bb1cae23f192959825a 100644 (file)
--- 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