diff options
| author | Yuan Fu | 2024-04-07 13:33:31 -0700 |
|---|---|---|
| committer | Yuan Fu | 2024-04-07 22:20:31 -0700 |
| commit | 64854869ae0cacddb16926670e2a67c03a3f9618 (patch) | |
| tree | c92ce98c7a602f3da80e8f8028d5d1194cb36d6e /test/src | |
| parent | ee377aaddf9d73116b93c3d54b1ffef9a3a8b925 (diff) | |
| download | emacs-64854869ae0cacddb16926670e2a67c03a3f9618.tar.gz emacs-64854869ae0cacddb16926670e2a67c03a3f9618.zip | |
Make tree-sitter thing feature public and remove obsolete functions
* lisp/treesit.el (treesit--things-around): Remove function.
(treesit-forward-sexp):
(treesit-beginning-of-thing):
(treesit-end-of-thing):
(treesit-navigate-thing):
(treesit-thing-at-point):
(treesit-outline-search): Use public version of thing-functions.
(treesit--thing-prev):
(treesit--thing-next):
(treesit--thing-at):
(treesit--navigate-thing): Make public.
* test/src/treesit-tests.el (treesit--ert-test-defun-navigation): Use
public version of thing-functions.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/treesit-tests.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el index bdc9630c783..5d0c92ae8a6 100644 --- a/test/src/treesit-tests.el +++ b/test/src/treesit-tests.el | |||
| @@ -927,7 +927,7 @@ starting marker position, and the rest are marker positions the | |||
| 927 | corresponding navigation should stop at (after running | 927 | corresponding navigation should stop at (after running |
| 928 | `treesit-defun-skipper'). | 928 | `treesit-defun-skipper'). |
| 929 | 929 | ||
| 930 | TACTIC is the same as in `treesit--navigate-thing'. | 930 | TACTIC is the same as in `treesit-navigate-thing'. |
| 931 | 931 | ||
| 932 | OPENING and CLOSING are the same as in | 932 | OPENING and CLOSING are the same as in |
| 933 | `treesit--ert-insert-and-parse-marker', by default they are \"[\" | 933 | `treesit--ert-insert-and-parse-marker', by default they are \"[\" |
| @@ -939,7 +939,7 @@ and \"]\"." | |||
| 939 | (closing (or closing "]")) | 939 | (closing (or closing "]")) |
| 940 | ;; Insert program and parse marker positions. | 940 | ;; Insert program and parse marker positions. |
| 941 | (marker-alist (treesit--ert-insert-and-parse-marker | 941 | (marker-alist (treesit--ert-insert-and-parse-marker |
| 942 | opening closing program)) | 942 | opening closing program)) |
| 943 | ;; Translate marker positions into buffer positions. | 943 | ;; Translate marker positions into buffer positions. |
| 944 | (decoded-master | 944 | (decoded-master |
| 945 | (cl-loop for record in master | 945 | (cl-loop for record in master |
| @@ -955,7 +955,7 @@ and \"]\"." | |||
| 955 | (mapcar (lambda (conf) | 955 | (mapcar (lambda (conf) |
| 956 | (lambda () | 956 | (lambda () |
| 957 | (if-let ((pos (funcall | 957 | (if-let ((pos (funcall |
| 958 | #'treesit--navigate-thing | 958 | #'treesit-navigate-thing |
| 959 | (point) (car conf) (cdr conf) | 959 | (point) (car conf) (cdr conf) |
| 960 | treesit-defun-type-regexp tactic))) | 960 | treesit-defun-type-regexp tactic))) |
| 961 | (save-excursion | 961 | (save-excursion |