From: Juri Linkov <juri@linkov.net>
Date: Sun, 20 Apr 2025 18:29:36 +0000 (+0300)
Subject: * lisp/treesit.el (treesit-show-paren-data--categorize): Fix off-by-one error.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aa8ddc885684aae4cc451d9e3c07a4e1be9c32e9;p=emacs.git

* 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 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)))