11 lines
481 B
EmacsLisp
11 lines
481 B
EmacsLisp
|
;;; tools/tree-sitter/autoload.el -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;;;###autoload
|
||
|
|
(defun +tree-sitter-goto-textobj (group &optional previous end query)
|
||
|
|
"Thin wrapper that returns the symbol of a named function, used in keybindings."
|
||
|
|
(let ((sym (intern (format "+goto%s%s-%s" (if previous "-previous" "") (if end "-end" "") group))))
|
||
|
|
(fset sym (lambda ()
|
||
|
|
(interactive)
|
||
|
|
(evil-textobj-tree-sitter-goto-textobj group previous end query)))
|
||
|
|
sym))
|