procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add guard in treesit-language-at-point-default (bug#77870)

Browse source 
* lisp/treesit.el (treesit-language-at-point-default): Return
nil if there's no parser in the buffer.
(treesit-parsers-at): Add docstring for parser order.
This commit is contained in:
Yuan Fu 2025-04-17 16:56:07 -07:00
parent 4f80a116f5
commit f728aa72c0
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 12 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
lisp/treesit.el
View file

@ -190,9 +190,14 @@ the return value of that function instead."
(defun treesit-language-at-point-default (position)
"Default function for `treesit-language-at-point-function'.
Return the deepest parser by embed level."
(treesit-parser-language
(car (treesit-parsers-at position))))
Returns the language at POSITION, or nil if there's no parser in the
buffer. When there are multiple parsers that cover POSITION, use the
parser with the deepest embed level as it's the \"most relevant\" parser
at POSITION."
(let ((parser (car (treesit-parsers-at position))))
(when parser
(treesit-parser-language parser))))
;;; Node API supplement
@ -855,7 +860,10 @@ by an overlay with non-nil `treesit-parser-local-p' property.
If ONLY contains the symbol `global', include non-local parsers
excluding the primary parser.
If ONLY contains the symbol `primary', include the primary parser."
If ONLY contains the symbol `primary', include the primary parser.
The returned parsers are sorted in descending order of embed level.
That is, the deepest embedded parser comes first."
(let ((res nil))
;; Refer to (ref:local-parser-overlay) for more explanation of local
;; parser overlays.