diff options
| author | Juri Linkov | 2025-03-27 09:33:45 +0200 |
|---|---|---|
| committer | Juri Linkov | 2025-03-27 09:33:45 +0200 |
| commit | 27c41d026f79ebc46fc8fe202836be0fd375bc1b (patch) | |
| tree | 4d7a380a532dd1ec60ba86d4724b6f1ea941928f | |
| parent | 1883a5c7174eeede8fe307e73014628edca6b614 (diff) | |
| download | emacs-27c41d026f79ebc46fc8fe202836be0fd375bc1b.tar.gz emacs-27c41d026f79ebc46fc8fe202836be0fd375bc1b.zip | |
* lisp/treesit-x.el: Remove unnecessary treesit-generic-mode.
(treesit-generic-mode-list): Remove variable.
(define-treesit-generic-mode): Remove docstring text about hook
that is already added by 'define-derived-mode'.
(treesit-generic-mode): Remove command.
| -rw-r--r-- | lisp/treesit-x.el | 26 |
1 files changed, 1 insertions, 25 deletions
diff --git a/lisp/treesit-x.el b/lisp/treesit-x.el index 538f9df5b8e..cd2a1f8845b 100644 --- a/lisp/treesit-x.el +++ b/lisp/treesit-x.el | |||
| @@ -42,12 +42,6 @@ | |||
| 42 | ;;; Define treesit generic mode | 42 | ;;; Define treesit generic mode |
| 43 | 43 | ||
| 44 | ;;;###autoload | 44 | ;;;###autoload |
| 45 | (defvar treesit-generic-mode-list nil | ||
| 46 | "A list of mode names for `treesit-generic-mode'. | ||
| 47 | Do not add entries to this list directly; use `define-treesit-generic-mode' | ||
| 48 | instead (which see).") | ||
| 49 | |||
| 50 | ;;;###autoload | ||
| 51 | (defmacro define-treesit-generic-mode (mode &optional docstring &rest body) | 45 | (defmacro define-treesit-generic-mode (mode &optional docstring &rest body) |
| 52 | "Create a new treesit generic mode MODE. | 46 | "Create a new treesit generic mode MODE. |
| 53 | 47 | ||
| @@ -122,9 +116,6 @@ of `define-treesit-generic-mode'. | |||
| 122 | ;; Add lang and source to source-alist. | 116 | ;; Add lang and source to source-alist. |
| 123 | (add-to-list 'treesit-language-source-alist (cons ,lang ,source)) | 117 | (add-to-list 'treesit-language-source-alist (cons ,lang ,source)) |
| 124 | 118 | ||
| 125 | ;; Add a new entry. | ||
| 126 | (add-to-list 'treesit-generic-mode-list ,mode-name) | ||
| 127 | |||
| 128 | ;; Add it to auto-mode-alist | 119 | ;; Add it to auto-mode-alist |
| 129 | (dolist (re ,auto-mode) | 120 | (dolist (re ,auto-mode) |
| 130 | (add-to-list 'auto-mode-alist (cons re ',mode))) | 121 | (add-to-list 'auto-mode-alist (cons re ',mode))) |
| @@ -134,8 +125,7 @@ of `define-treesit-generic-mode'. | |||
| 134 | ,(or name pretty-name) | 125 | ,(or name pretty-name) |
| 135 | ,(or docstring | 126 | ,(or docstring |
| 136 | (concat (or name pretty-name) " mode.\n" | 127 | (concat (or name pretty-name) " mode.\n" |
| 137 | "This a tree-sitter mode defined with `define-treesit-generic-mode'.\n" | 128 | "This a tree-sitter mode defined with `define-treesit-generic-mode'.")) |
| 138 | "It runs `" mode-name "-hook' as the last thing it does.")) | ||
| 139 | (treesit-generic-mode-setup ,lang ,source) | 129 | (treesit-generic-mode-setup ,lang ,source) |
| 140 | ,@body | 130 | ,@body |
| 141 | (treesit-major-mode-setup))))) | 131 | (treesit-major-mode-setup))))) |
| @@ -161,20 +151,6 @@ of `define-treesit-generic-mode'. | |||
| 161 | query)) | 151 | query)) |
| 162 | (setq-local treesit-font-lock-feature-list '((highlights)))))) | 152 | (setq-local treesit-font-lock-feature-list '((highlights)))))) |
| 163 | 153 | ||
| 164 | ;;;###autoload | ||
| 165 | (defun treesit-generic-mode (mode) | ||
| 166 | "Enter treesit generic mode MODE. | ||
| 167 | |||
| 168 | Treesit generic modes provide basic font-lock functionality for | ||
| 169 | tree-sitter grammars. (Files which are too small to warrant their | ||
| 170 | own mode, but have comments, keywords, and the like.) | ||
| 171 | |||
| 172 | To define a generic mode, use the function `define-treesit-generic-mode'. | ||
| 173 | Some treesit generic modes are defined in `treesit-x.el'." | ||
| 174 | (interactive | ||
| 175 | (list (completing-read "Treesit generic mode: " treesit-generic-mode-list nil t))) | ||
| 176 | (funcall (intern mode))) | ||
| 177 | |||
| 178 | ;;; Generic font-lock handling | 154 | ;;; Generic font-lock handling |
| 179 | 155 | ||
| 180 | (defvar treesit-generic-mode-font-lock-map | 156 | (defvar treesit-generic-mode-font-lock-map |