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 c57a0bc6c5595b16e236d7d5827d2afda4e5895a..e9ea56f75e20affd06f8e92bf5e7b3e269465986 100644 (file)
--- 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)))