diff options
| -rw-r--r-- | users/Profpatsch/emacs-tree-sitter-move/tree-sitter-move.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/users/Profpatsch/emacs-tree-sitter-move/tree-sitter-move.el b/users/Profpatsch/emacs-tree-sitter-move/tree-sitter-move.el index 0fd16e675211..c23e401f0a23 100644 --- a/users/Profpatsch/emacs-tree-sitter-move/tree-sitter-move.el +++ b/users/Profpatsch/emacs-tree-sitter-move/tree-sitter-move.el @@ -94,10 +94,10 @@ (interactive) (tree-sitter-move--move-skip-non-sibling-nodes 'tsc-get-parent)) -;; TODO doesn’t work yet because sibling nodes are only skipped upwards -;; (defun tree-sitter-move-down () -;; (interactive) -;; (tree-sitter-move--move-skip-non-sibling-nodes (lambda (n) (tsc-get-nth-named-child n 0)))) +;; TODO: does not skip siblings yet, because the skip function only goes up (not down) +(defun tree-sitter-move-down () + (interactive) + (tree-sitter-move--move-if-possible (lambda (n) (tsc-get-nth-named-child n 0)))) (defun tree-sitter-move--move-skip-non-sibling-nodes (move-fn) "Moves to the sidewards next sibling. If the current node does not have siblings, go |