Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix treesit-range-fn-exclude-children

Browse source 
* lisp/treesit.el (treesit-range-fn-exclude-children): Exclude
0-length ranges.
This commit is contained in:
Yuan Fu 2026-04-26 19:40:32 -07:00
parent 20b6edf167
commit ee021b0ec1
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/treesit.el
View file

@ -845,9 +845,12 @@ This can be used as a `:range-fn' in `treesit-range-rules'."
(dolist (child (treesit-node-children node))
(let ((child-start (treesit-node-start child))
(child-end (treesit-node-end child)))
(push (cons prev-end child-start) ranges)
;; Filter out the case when PREV-END = CHILD-START.
(when (< prev-end child-start)
(push (cons prev-end child-start) ranges))
(setq prev-end child-end)))
(push (cons prev-end end) ranges)
(when (< prev-end end)
(push (cons prev-end end) ranges))
(nreverse ranges)))
(defun treesit--merge-ranges (old-ranges new-ranges start end)