From: Juri Linkov <juri@linkov.net>
Date: Wed, 12 Feb 2025 17:41:12 +0000 (+0200)
Subject: ; * lisp/treesit.el: Remove TODO for integration with thing-at-point.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=99e88301c2d86723b2aeb823a433489725b072bf;p=emacs.git

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

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

(cherry picked from commit b514ec87b618e4ee9a95b248eb55c5e0cc69949c)
---

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 0f4b1110200..917a19c7a3f 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -2781,9 +2781,6 @@ friends."
 ;;
 ;; There are also some defun-specific functions, like
 ;; 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
   "A regexp that matches the node type of defun nodes.
@@ -3250,7 +3247,6 @@ function is called recursively."
     ;; Counter equal to 0 means we successfully stepped ARG steps.
     (if (eq counter 0) pos nil)))
 
-;; TODO: In corporate into thing-at-point.
 (defun treesit-thing-at-point (thing tactic)
   "Return the THING at point, or nil if none is found.