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

; * lisp/treesit.el: Remove TODO for integration with thing-at-point.

Browse source 
At this point, thing-at-point with all standard things
is already supported by treesit, for example:
"(thing-at-point 'defun)" by treesit-beginning-of-defun,
"(thing-at-point 'sexp)" by treesit-forward-sexp,
"(thing-at-point 'list)" by treesit-up-list,
"(thing-at-point 'sentence)" by treesit-forward-sentence,
"(thing-at-point 'comment)" by treesit-forward-comment.
https://lists.gnu.org/archive/html/emacs-devel/2025-02/msg00384.html
This commit is contained in:
Juri Linkov 2025-02-12 19:41:12 +02:00
parent 82da362862
commit b514ec87b6
1 changed files with 0 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/treesit.el
View file

@ -2789,9 +2789,6 @@ friends."
;; ;;
;; There are also some defun-specific functions, like ;; There are also some defun-specific functions, like
;; treesit-defun-name, treesit-add-log-current-defun. ;; treesit-defun-name, treesit-add-log-current-defun.
;;
;; TODO: Integration with thing-at-point: once our thing interface is
;; stable.
(defvar-local treesit-defun-type-regexp nil (defvar-local treesit-defun-type-regexp nil
"A regexp that matches the node type of defun nodes. "A regexp that matches the node type of defun nodes.
@ -3258,7 +3255,6 @@ function is called recursively."
;; Counter equal to 0 means we successfully stepped ARG steps. ;; Counter equal to 0 means we successfully stepped ARG steps.
(if (eq counter 0) pos nil))) (if (eq counter 0) pos nil)))
;; TODO: In corporate into thing-at-point.
(defun treesit-thing-at-point (thing tactic) (defun treesit-thing-at-point (thing tactic)
"Return the THING at point, or nil if none is found. "Return the THING at point, or nil if none is found.