From 3a610f81903b27ff693e6d8cc0500032736bdb31 Mon Sep 17 00:00:00 2001 From: Yuan Fu Date: Tue, 11 Mar 2025 01:34:06 -0700 Subject: [PATCH] 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) --- lisp/treesit.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) 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))) -- 2.39.5