From: Yuan Fu <casouri@gmail.com>
Date: Mon, 13 Jun 2022 20:53:11 +0000 (-0700)
Subject: Use the up-only parameter in treesit navigation functions
X-Git-Tag: emacs-29.0.90~1911^2~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3de8850e0b19c831ebcb0760248c9ef00fbbb98;p=emacs.git

Use the up-only parameter in treesit navigation functions

* lisp/treesit.el(treesit-inspect-node-at-point,
treesit-end-of-defun): Set up-only to t.
---

diff --git a/lisp/treesit.el b/lisp/treesit.el
index 7de7545f4ef..76101509e0d 100644
--- a/lisp/treesit.el
+++ b/lisp/treesit.el
@@ -974,7 +974,7 @@ to the ARGth following beginning of defun.  Defun is defined
 according to `treesit-defun-query'."
   (unless treesit-defun-query
     (error "Variable `treesit-defun-query' is unset"))
-  (treesit-search-beginning treesit-defun-query (- (or arg 1))))
+  (treesit-search-beginning treesit-defun-query (- (or arg 1)) nil t))
 
 (defun treesit-end-of-defun (&optional arg)
   "Move forward to the end of a defun.
@@ -984,7 +984,7 @@ ARGth preceding end of defun.  Defun is defined according to
 `treesit-defun-query'."
   (unless treesit-defun-query
     (error "Variable `treesit-defun-query' is unset"))
-  (treesit-search-end treesit-defun-query (or arg 1)))
+  (treesit-search-end treesit-defun-query (or arg 1) nil t))
 
 ;;; Debugging