* lisp/treesit.el (treesit-show-paren-data--categorize): Fix off-by-one error.

(bug#77906)

(cherry picked from commit b38fd553eb3291f140801ca158f6ab245496fa69)

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 59a159825b8b8fefe7e04259e66d3aa2bfbedd7c..7ccc14dceda12d9b5624a9d7ecc4a562537e21c8 100644 (file)
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -4199,7 +4199,7 @@ Expected to be called after each text change."
 (defun treesit-show-paren-data--categorize (pos &optional end-p)
   (let* ((pred 'list)
          (parent (when (treesit-thing-defined-p
-                        pred (treesit-language-at pos))
+                        pred (treesit-language-at (if end-p (1- pos) pos)))
                    (treesit-parent-until
                     (treesit-node-at (if end-p (1- pos) pos)) pred)))
          (first (when parent (treesit-node-child parent 0)))