aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2025-03-27 09:33:45 +0200
committerJuri Linkov2025-03-27 09:33:45 +0200
commit27c41d026f79ebc46fc8fe202836be0fd375bc1b (patch)
tree4d7a380a532dd1ec60ba86d4724b6f1ea941928f
parent1883a5c7174eeede8fe307e73014628edca6b614 (diff)
downloademacs-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.el26
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'.
47Do not add entries to this list directly; use `define-treesit-generic-mode'
48instead (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
168Treesit generic modes provide basic font-lock functionality for
169tree-sitter grammars. (Files which are too small to warrant their
170own mode, but have comments, keywords, and the like.)
171
172To define a generic mode, use the function `define-treesit-generic-mode'.
173Some 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