From aa8ddc885684aae4cc451d9e3c07a4e1be9c32e9 Mon Sep 17 00:00:00 2001
From: Juri Linkov <juri@linkov.net>
Date: Sun, 20 Apr 2025 21:29:36 +0300
Subject: [PATCH] * lisp/treesit.el (treesit-show-paren-data--categorize): Fix
 off-by-one error.

(bug#77906)

(cherry picked from commit b38fd553eb3291f140801ca158f6ab245496fa69)
---
 lisp/treesit.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 59a159825b8..7ccc14dceda 100644
--- 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)))
-- 
2.39.5