From: Yuan Fu <casouri@gmail.com>
Date: Tue, 11 Mar 2025 08:34:06 +0000 (-0700)
Subject: Make sure treesit-local-parsers-on works when BEG = END (bug#76398)
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3a610f81903b27ff693e6d8cc0500032736bdb31;p=emacs.git

Make sure treesit-local-parsers-on works when BEG = END (bug#76398)

(Unrelated to the topic of the bug, but mentioned in the thread.)

* lisp/treesit.el (treesit-local-parsers-on): Use overlays-at
when BEG = END.

(cherry picked from commit abaff36c3c26850fe883d44fa8a3359a90322d06)
---

diff --git a/lisp/treesit.el b/lisp/treesit.el
index c57a0bc6c55..e9ea56f75e2 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -876,7 +876,7 @@ PARSER."
     (nreverse res)))
 
 (defun treesit-local-parsers-on (&optional beg end language with-host)
-  "Return all the local parsers between BEG and END.
+  "Return all the local parsers that covers the region between BEG and END.
 
 BEG and END default to the beginning and end of the buffer's accessible
 portion.
@@ -891,7 +891,9 @@ PARSER."
   (let ((res nil))
     ;; Refer to (ref:local-parser-overlay) for more explanation of local
     ;; parser overlays.
-    (dolist (ov (overlays-in (or beg (point-min)) (or end (point-max))))
+    (dolist (ov (if (eq beg end)
+                    (overlays-at beg)
+                  (overlays-in (or beg (point-min)) (or end (point-max)))))
       (let ((parser (overlay-get ov 'treesit-parser))
             (host-parser (overlay-get ov 'treesit-host-parser))
             (local-p (overlay-get ov 'treesit-parser-local-p)))