mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

; Add treesit-no-parser error

Browse source 
* lisp/treesit.el (treesit-no-parser): New error.
(treesit-buffer-root-node): Use the new error.
This commit is contained in:
Yuan Fu 2022-12-24 14:48:50 -08:00
parent b6a2e1ddf6
commit 7f7def2ae6
No known key found for this signature in database
GPG key ID: 56E19BC57664A442
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/treesit.el
View file

@ -141,6 +141,9 @@ parser in `treesit-parser-list', or nil if there is no parser."
;;; Node API supplement ;;; Node API supplement
(define-error 'treesit-no-parser "No available parser for this buffer"
'treesit-error)
(defun treesit-node-buffer (node) (defun treesit-node-buffer (node)
"Return the buffer in which NODE belongs." "Return the buffer in which NODE belongs."
(treesit-parser-buffer (treesit-parser-buffer
@ -248,11 +251,10 @@ Use the first parser in `treesit-parser-list'.
If optional argument LANGUAGE is non-nil, use the first parser If optional argument LANGUAGE is non-nil, use the first parser
for LANGUAGE." for LANGUAGE."
(if-let ((parser (if-let ((parser
(or (if language (if language
(treesit-parser-create language) (treesit-parser-create language)
(or (car (treesit-parser-list)) (or (car (treesit-parser-list))
(signal 'treesit-error (signal 'treesit-no-parser (list (current-buffer)))))))
'("Buffer has no parser")))))))
(treesit-parser-root-node parser))) (treesit-parser-root-node parser)))
(defun treesit-filter-child (node pred &optional named) (defun treesit-filter-child (node pred &optional named)