Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

* lisp/treesit.el: Small fixes in navigation functions.

Browse source 
(treesit-up-list): Better handle multi-language buffers.
(treesit-hs-find-next-block): Fix off-by-one error.
This commit is contained in:
Juri Linkov 2025-10-16 19:40:21 +03:00
parent 208241aa83
commit bbbad93498
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/treesit.el
View file

@ -3209,6 +3209,10 @@ ARG is described in the docstring of `up-list'."
(or (when (and (null (or treesit-sexp-thing-up-list
treesit-sexp-thing))
default-pos
;; The default function returns wrong results
;; when crossing multi-language boundaries:
(eq (treesit-language-at default-pos)
(treesit-language-at (point)))
(or (null parent)
(if (> arg 0)
(<= default-pos (treesit-node-end parent))
@ -4207,7 +4211,7 @@ For BOUND, MOVE, BACKWARD, LOOKING-AT, see the descriptions in
(comment-p (and comment-thing (eq beg (treesit-node-start comment-thing))))
(thing (if comment-p comment-thing list-thing))
(end (if thing (min (1+ (treesit-node-start thing)) (point-max)))))
(when (and end (< end maxp))
(when (and end (<= end maxp))
(goto-char end)
(set-match-data
(if (and comments comment-p)