diff options
| author | Juri Linkov | 2025-01-12 09:39:36 +0200 |
|---|---|---|
| committer | Juri Linkov | 2025-01-12 09:39:36 +0200 |
| commit | 54e4b305032d4dadbee286179fa78e01d4d15182 (patch) | |
| tree | 12a27d32d8d59ecac909d4dff92648955b9925b1 | |
| parent | 412c1a4f0e1df8c82bd94f02e21c1ef62b3d53d5 (diff) | |
| download | emacs-54e4b305032d4dadbee286179fa78e01d4d15182.tar.gz emacs-54e4b305032d4dadbee286179fa78e01d4d15182.zip | |
* lisp/treesit.el: Fix 'treesit--explorer-tree-mode-map'.
(treesit--explorer-tree-mode-map): Move this map
before its mode 'treesit--explorer-tree-mode',
otherwise the map has no effect.
| -rw-r--r-- | lisp/treesit.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/treesit.el b/lisp/treesit.el index 995d89332ad..056d96ad7ad 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el | |||
| @@ -4045,11 +4045,6 @@ covers point. PARSER-NAME are unique." | |||
| 4045 | res))) | 4045 | res))) |
| 4046 | (nreverse res))) | 4046 | (nreverse res))) |
| 4047 | 4047 | ||
| 4048 | (define-derived-mode treesit--explorer-tree-mode special-mode | ||
| 4049 | "TS Explorer" | ||
| 4050 | "Mode for displaying syntax trees for `treesit-explore-mode'." | ||
| 4051 | nil) | ||
| 4052 | |||
| 4053 | (defvar-keymap treesit--explorer-tree-mode-map | 4048 | (defvar-keymap treesit--explorer-tree-mode-map |
| 4054 | :doc "Keymap for the treesit tree explorer. | 4049 | :doc "Keymap for the treesit tree explorer. |
| 4055 | 4050 | ||
| @@ -4060,6 +4055,11 @@ Navigates from button to button." | |||
| 4060 | "TAB" #'forward-button | 4055 | "TAB" #'forward-button |
| 4061 | "<backtab>" #'backward-button) | 4056 | "<backtab>" #'backward-button) |
| 4062 | 4057 | ||
| 4058 | (define-derived-mode treesit--explorer-tree-mode special-mode | ||
| 4059 | "TS Explorer" | ||
| 4060 | "Mode for displaying syntax trees for `treesit-explore-mode'." | ||
| 4061 | nil) | ||
| 4062 | |||
| 4063 | (defun treesit-explorer-switch-parser (parser) | 4063 | (defun treesit-explorer-switch-parser (parser) |
| 4064 | "Switch explorer to use PARSER." | 4064 | "Switch explorer to use PARSER." |
| 4065 | (interactive | 4065 | (interactive |