diff options
| author | Yuan Fu <casouri@gmail.com> | 2022-06-11 20:24:38 -0700 |
|---|---|---|
| committer | Yuan Fu <casouri@gmail.com> | 2022-06-11 20:24:38 -0700 |
| commit | 1dd8ddee12e03224f9bcfd029c9e4192d2c47a24 (patch) | |
| tree | b077fcfbf3e6aa016fbfae44acf201847b607d7b | |
| parent | 35e2786c930d5c2125f2af8d1c224a480181dce9 (diff) | |
| download | emacs-1dd8ddee12e03224f9bcfd029c9e4192d2c47a24.tar.gz emacs-1dd8ddee12e03224f9bcfd029c9e4192d2c47a24.tar.bz2 emacs-1dd8ddee12e03224f9bcfd029c9e4192d2c47a24.zip | |
Rename treesit-traverse-forward-depth-first
* lisp/treesit.el (treesit-traverse-forward): Rename to
'treesit-traverse-forward'.
(treesit-traverse-forward, treesit-search-forward): Use
the new name.
| -rw-r--r-- | lisp/treesit.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/treesit.el b/lisp/treesit.el index 761c7147a0e..98fcf843550 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el @@ -296,7 +296,7 @@ Return either ('sibling node) or ('parent node)." (when (treesit-node-parent node) (list 'parent (treesit-node-parent node))))) -(defun treesit-traverse-forward-depth-first (node pred &optional step) +(defun treesit-traverse-forward (node pred &optional step) "Traverse the whole tree forward from NODE depth-first. Traverse starting from NODE (i.e., NODE is passed to PRED). For @@ -331,7 +331,7 @@ where NODE is marked 1, traverse as numbered: (throw 'match (cadr next)))) (when next ;; If NEXT is non-nil, it must be ('sibling node). - (treesit-traverse-forward-depth-first + (treesit-traverse-forward (cadr next) pred step)))))) (defun treesit-node-children (node &optional named) @@ -859,7 +859,7 @@ return the matched node. Return nil if search failed." for node = (if-let ((starting-point (point)) (node (treesit-node-at (point) parser t))) - (treesit-traverse-forward-depth-first + (treesit-traverse-forward node (lambda (node) (and (not (eq (funcall pos-fn node) |