From 27c41d026f79ebc46fc8fe202836be0fd375bc1b Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 27 Mar 2025 09:33:45 +0200 Subject: [PATCH] * 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. --- lisp/treesit-x.el | 26 +------------------------- 1 file changed, 1 insertion(+), 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 @@ -41,12 +41,6 @@ ;;; Define treesit generic mode -;;;###autoload -(defvar treesit-generic-mode-list nil - "A list of mode names for `treesit-generic-mode'. -Do not add entries to this list directly; use `define-treesit-generic-mode' -instead (which see).") - ;;;###autoload (defmacro define-treesit-generic-mode (mode &optional docstring &rest body) "Create a new treesit generic mode MODE. @@ -122,9 +116,6 @@ of `define-treesit-generic-mode'. ;; Add lang and source to source-alist. (add-to-list 'treesit-language-source-alist (cons ,lang ,source)) - ;; Add a new entry. - (add-to-list 'treesit-generic-mode-list ,mode-name) - ;; Add it to auto-mode-alist (dolist (re ,auto-mode) (add-to-list 'auto-mode-alist (cons re ',mode))) @@ -134,8 +125,7 @@ of `define-treesit-generic-mode'. ,(or name pretty-name) ,(or docstring (concat (or name pretty-name) " mode.\n" - "This a tree-sitter mode defined with `define-treesit-generic-mode'.\n" - "It runs `" mode-name "-hook' as the last thing it does.")) + "This a tree-sitter mode defined with `define-treesit-generic-mode'.")) (treesit-generic-mode-setup ,lang ,source) ,@body (treesit-major-mode-setup))))) @@ -161,20 +151,6 @@ of `define-treesit-generic-mode'. query)) (setq-local treesit-font-lock-feature-list '((highlights)))))) -;;;###autoload -(defun treesit-generic-mode (mode) - "Enter treesit generic mode MODE. - -Treesit generic modes provide basic font-lock functionality for -tree-sitter grammars. (Files which are too small to warrant their -own mode, but have comments, keywords, and the like.) - -To define a generic mode, use the function `define-treesit-generic-mode'. -Some treesit generic modes are defined in `treesit-x.el'." - (interactive - (list (completing-read "Treesit generic mode: " treesit-generic-mode-list nil t))) - (funcall (intern mode))) - ;;; Generic font-lock handling (defvar treesit-generic-mode-font-lock-map