diff options
| author | Juri Linkov <juri@linkov.net> | 2025-08-18 09:49:36 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2025-08-18 09:49:36 +0300 |
| commit | bf652e6844601bb42daaac2ed867e047f2eb615f (patch) | |
| tree | fbb72c29ec21ab3e522d8d4d9cca433663e23857 | |
| parent | 888dc2a0b5e937ae8976ebef0f4b8091c0cd542c (diff) | |
Silence byte-compile warnings when treesit is not available
* lisp/progmodes/c-ts-mode.el:
* lisp/progmodes/cmake-ts-mode.el:
* lisp/progmodes/csharp-mode.el:
* lisp/progmodes/dockerfile-ts-mode.el:
* lisp/progmodes/elixir-ts-mode.el:
* lisp/progmodes/go-ts-mode.el:
* lisp/progmodes/heex-ts-mode.el:
* lisp/progmodes/java-ts-mode.el:
* lisp/progmodes/js.el:
* lisp/progmodes/json-ts-mode.el:
* lisp/progmodes/lua-ts-mode.el:
* lisp/progmodes/php-ts-mode.el:
* lisp/progmodes/ruby-ts-mode.el:
* lisp/progmodes/rust-ts-mode.el:
* lisp/progmodes/sh-script.el:
* lisp/progmodes/typescript-ts-mode.el:
* lisp/textmodes/css-mode.el:
* lisp/textmodes/markdown-ts-mode.el:
* lisp/textmodes/mhtml-ts-mode.el:
* lisp/textmodes/toml-ts-mode.el:
* lisp/textmodes/yaml-ts-mode.el:
Declare 'treesit-major-mode-remap-alist' and
'treesit-language-available-p' to silence warnings
that are false alarms. Also improve docstrings.
| -rw-r--r-- | lisp/progmodes/c-ts-mode.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/cmake-ts-mode.el | 6 | ||||
| -rw-r--r-- | lisp/progmodes/csharp-mode.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/dockerfile-ts-mode.el | 6 | ||||
| -rw-r--r-- | lisp/progmodes/elixir-ts-mode.el | 6 | ||||
| -rw-r--r-- | lisp/progmodes/go-ts-mode.el | 18 | ||||
| -rw-r--r-- | lisp/progmodes/heex-ts-mode.el | 6 | ||||
| -rw-r--r-- | lisp/progmodes/java-ts-mode.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/js.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/json-ts-mode.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/lua-ts-mode.el | 6 | ||||
| -rw-r--r-- | lisp/progmodes/php-ts-mode.el | 6 | ||||
| -rw-r--r-- | lisp/progmodes/ruby-ts-mode.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/rust-ts-mode.el | 6 | ||||
| -rw-r--r-- | lisp/progmodes/sh-script.el | 1 | ||||
| -rw-r--r-- | lisp/progmodes/typescript-ts-mode.el | 12 | ||||
| -rw-r--r-- | lisp/textmodes/css-mode.el | 1 | ||||
| -rw-r--r-- | lisp/textmodes/markdown-ts-mode.el | 6 | ||||
| -rw-r--r-- | lisp/textmodes/mhtml-ts-mode.el | 1 | ||||
| -rw-r--r-- | lisp/textmodes/toml-ts-mode.el | 1 | ||||
| -rw-r--r-- | lisp/textmodes/yaml-ts-mode.el | 6 |
21 files changed, 80 insertions, 14 deletions
diff --git a/lisp/progmodes/c-ts-mode.el b/lisp/progmodes/c-ts-mode.el index 55240c3869a..174eb47cb3a 100644 --- a/lisp/progmodes/c-ts-mode.el +++ b/lisp/progmodes/c-ts-mode.el @@ -1675,6 +1675,7 @@ the code is C or C++, and based on that chooses whether to enable ;;;###autoload (when (treesit-available-p) + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(c-mode . c-ts-mode)) (add-to-list 'treesit-major-mode-remap-alist diff --git a/lisp/progmodes/cmake-ts-mode.el b/lisp/progmodes/cmake-ts-mode.el index 3f879e37ba2..84589b1eb73 100644 --- a/lisp/progmodes/cmake-ts-mode.el +++ b/lisp/progmodes/cmake-ts-mode.el @@ -257,7 +257,10 @@ Return nil if there is no name or if NODE is not a defun node." ;;;###autoload (defun cmake-ts-mode-maybe () - "Enable `cmake-ts-mode' when its grammar is available." + "Enable `cmake-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'cmake) (eq treesit-enabled-modes t) (memq 'cmake-ts-mode treesit-enabled-modes)) @@ -269,6 +272,7 @@ Return nil if there is no name or if NODE is not a defun node." (add-to-list 'auto-mode-alist '("\\(?:CMakeLists\\.txt\\|\\.cmake\\)\\'" . cmake-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(cmake-mode . cmake-ts-mode))) diff --git a/lisp/progmodes/csharp-mode.el b/lisp/progmodes/csharp-mode.el index fb05389ba91..2ef97ccc687 100644 --- a/lisp/progmodes/csharp-mode.el +++ b/lisp/progmodes/csharp-mode.el @@ -1225,6 +1225,7 @@ Key bindings: ;;;###autoload (when (treesit-available-p) + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(csharp-mode . csharp-ts-mode))) diff --git a/lisp/progmodes/dockerfile-ts-mode.el b/lisp/progmodes/dockerfile-ts-mode.el index 79a2197c078..40259792b52 100644 --- a/lisp/progmodes/dockerfile-ts-mode.el +++ b/lisp/progmodes/dockerfile-ts-mode.el @@ -204,7 +204,10 @@ Return nil if there is no name or if NODE is not a stage node." ;;;###autoload (defun dockerfile-ts-mode-maybe () - "Enable `dockerfile-ts-mode' when its grammar is available." + "Enable `dockerfile-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'dockerfile) (eq treesit-enabled-modes t) (memq 'dockerfile-ts-mode treesit-enabled-modes)) @@ -218,6 +221,7 @@ Return nil if there is no name or if NODE is not a stage node." '("\\(?:Dockerfile\\(?:\\..*\\)?\\|\\.[Dd]ockerfile\\)\\'" . dockerfile-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(dockerfile-mode . dockerfile-ts-mode))) diff --git a/lisp/progmodes/elixir-ts-mode.el b/lisp/progmodes/elixir-ts-mode.el index 05ad76d100f..04227599630 100644 --- a/lisp/progmodes/elixir-ts-mode.el +++ b/lisp/progmodes/elixir-ts-mode.el @@ -808,7 +808,10 @@ Return nil if NODE is not a defun node or doesn't have a name." ;;;###autoload (defun elixir-ts-mode-maybe () - "Enable `elixir-ts-mode' when its grammar is available." + "Enable `elixir-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'elixir) (eq treesit-enabled-modes t) (memq 'elixir-ts-mode treesit-enabled-modes)) @@ -822,6 +825,7 @@ Return nil if NODE is not a defun node or doesn't have a name." (add-to-list 'auto-mode-alist '("\\.exs\\'" . elixir-ts-mode-maybe)) (add-to-list 'auto-mode-alist '("mix\\.lock" . elixir-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(elixir-mode . elixir-ts-mode))) diff --git a/lisp/progmodes/go-ts-mode.el b/lisp/progmodes/go-ts-mode.el index 40f3de0bc15..e149e9230ec 100644 --- a/lisp/progmodes/go-ts-mode.el +++ b/lisp/progmodes/go-ts-mode.el @@ -361,7 +361,10 @@ ;;;###autoload (defun go-ts-mode-maybe () - "Enable `go-ts-mode' when its grammar is available." + "Enable `go-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'go) (eq treesit-enabled-modes t) (memq 'go-ts-mode treesit-enabled-modes)) @@ -372,6 +375,7 @@ (when (treesit-available-p) (add-to-list 'auto-mode-alist '("\\.go\\'" . go-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(go-mode . go-ts-mode))) @@ -635,7 +639,10 @@ what the parent of the node would be if it were a node." ;;;###autoload (defun go-mod-ts-mode-maybe () - "Enable `go-mod-ts-mode' when its grammar is available." + "Enable `go-mod-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'gomod) (eq treesit-enabled-modes t) (memq 'go-mod-ts-mode treesit-enabled-modes)) @@ -646,6 +653,7 @@ what the parent of the node would be if it were a node." (when (treesit-available-p) (add-to-list 'auto-mode-alist '("/go\\.mod\\'" . go-mod-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(go-mod-mode . go-mod-ts-mode))) @@ -736,7 +744,10 @@ what the parent of the node would be if it were a node." ;;;###autoload (defun go-work-ts-mode-maybe () - "Enable `go-work-ts-mode' when its grammar is available." + "Enable `go-work-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'gowork) (eq treesit-enabled-modes t) (memq 'go-work-ts-mode treesit-enabled-modes)) @@ -747,6 +758,7 @@ what the parent of the node would be if it were a node." (when (treesit-available-p) (add-to-list 'auto-mode-alist '("/go\\.work\\'" . go-work-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(go-work-mode . go-work-ts-mode))) diff --git a/lisp/progmodes/heex-ts-mode.el b/lisp/progmodes/heex-ts-mode.el index 41634d0e6a4..2b8b75c444e 100644 --- a/lisp/progmodes/heex-ts-mode.el +++ b/lisp/progmodes/heex-ts-mode.el @@ -267,7 +267,10 @@ Return nil if NODE is not a defun node or doesn't have a name." ;;;###autoload (defun heex-ts-mode-maybe () - "Enable `heex-ts-mode' when its grammar is available." + "Enable `heex-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'heex) (eq treesit-enabled-modes t) (memq 'heex-ts-mode treesit-enabled-modes)) @@ -280,6 +283,7 @@ Return nil if NODE is not a defun node or doesn't have a name." ;; with the tree-sitter-heex grammar. (add-to-list 'auto-mode-alist '("\\.[hl]?eex\\'" . heex-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(heex-mode . heex-ts-mode))) diff --git a/lisp/progmodes/java-ts-mode.el b/lisp/progmodes/java-ts-mode.el index e989d1b3f5d..979f5456c6d 100644 --- a/lisp/progmodes/java-ts-mode.el +++ b/lisp/progmodes/java-ts-mode.el @@ -526,6 +526,7 @@ Return nil if there is no name or if NODE is not a defun node." ;;;###autoload (when (treesit-available-p) + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(java-mode . java-ts-mode))) diff --git a/lisp/progmodes/js.el b/lisp/progmodes/js.el index c44b2adf146..1e4c832254c 100644 --- a/lisp/progmodes/js.el +++ b/lisp/progmodes/js.el @@ -4111,6 +4111,7 @@ See `treesit-thing-settings' for more information.") ;;;###autoload (when (treesit-available-p) + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(javascript-mode . js-ts-mode))) diff --git a/lisp/progmodes/json-ts-mode.el b/lisp/progmodes/json-ts-mode.el index b0db0a12210..a08e9a29fe8 100644 --- a/lisp/progmodes/json-ts-mode.el +++ b/lisp/progmodes/json-ts-mode.el @@ -183,6 +183,7 @@ Return nil if there is no name or if NODE is not a defun node." ;;;###autoload (when (treesit-available-p) + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(js-json-mode . json-ts-mode))) diff --git a/lisp/progmodes/lua-ts-mode.el b/lisp/progmodes/lua-ts-mode.el index 07a8f0aef55..5089e17c287 100644 --- a/lisp/progmodes/lua-ts-mode.el +++ b/lisp/progmodes/lua-ts-mode.el @@ -771,7 +771,10 @@ Calls REPORT-FN directly." ;;;###autoload (defun lua-ts-mode-maybe () - "Enable `lua-ts-mode' when its grammar is available." + "Enable `lua-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'lua) (eq treesit-enabled-modes t) (memq 'lua-ts-mode treesit-enabled-modes)) @@ -783,6 +786,7 @@ Calls REPORT-FN directly." (add-to-list 'auto-mode-alist '("\\.lua\\'" . lua-ts-mode-maybe)) (add-to-list 'interpreter-mode-alist '("\\<lua\\(?:jit\\)?" . lua-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(lua-mode . lua-ts-mode))) diff --git a/lisp/progmodes/php-ts-mode.el b/lisp/progmodes/php-ts-mode.el index 7c2a22024f8..e23293bdd3b 100644 --- a/lisp/progmodes/php-ts-mode.el +++ b/lisp/progmodes/php-ts-mode.el @@ -1924,7 +1924,10 @@ file to use." ;;;###autoload (defun php-ts-mode-maybe () - "Enable `php-ts-mode' when its grammar is available." + "Enable `php-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'php) (eq treesit-enabled-modes t) (memq 'php-ts-mode treesit-enabled-modes)) @@ -1943,6 +1946,7 @@ file to use." 'interpreter-mode-alist (cons "php\\(?:-?[34578]\\(?:\\.[0-9]+\\)*\\)?" 'php-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(php-mode . php-ts-mode))) diff --git a/lisp/progmodes/ruby-ts-mode.el b/lisp/progmodes/ruby-ts-mode.el index 1bb4f4fb890..742331ccddb 100644 --- a/lisp/progmodes/ruby-ts-mode.el +++ b/lisp/progmodes/ruby-ts-mode.el @@ -1279,6 +1279,7 @@ leading double colon is not added." ;;;###autoload (when (treesit-available-p) + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(ruby-mode . ruby-ts-mode))) diff --git a/lisp/progmodes/rust-ts-mode.el b/lisp/progmodes/rust-ts-mode.el index b9b39a0d341..a5c217c0a4b 100644 --- a/lisp/progmodes/rust-ts-mode.el +++ b/lisp/progmodes/rust-ts-mode.el @@ -656,7 +656,10 @@ See `prettify-symbols-compose-predicate'." ;;;###autoload (defun rust-ts-mode-maybe () - "Enable `rust-ts-mode' when its grammar is available." + "Enable `rust-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'rust) (eq treesit-enabled-modes t) (memq 'rust-ts-mode treesit-enabled-modes)) @@ -667,6 +670,7 @@ See `prettify-symbols-compose-predicate'." (when (treesit-available-p) (add-to-list 'auto-mode-alist '("\\.rs\\'" . rust-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(rust-mode . rust-ts-mode))) diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index f69647b435d..3b2601d251d 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -1650,6 +1650,7 @@ not written in Bash or sh." ;;;###autoload (when (treesit-available-p) + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(sh-mode . bash-ts-mode))) diff --git a/lisp/progmodes/typescript-ts-mode.el b/lisp/progmodes/typescript-ts-mode.el index 428ae11f653..e83ee70d7e9 100644 --- a/lisp/progmodes/typescript-ts-mode.el +++ b/lisp/progmodes/typescript-ts-mode.el @@ -724,7 +724,10 @@ This mode is intended to be inherited by concrete major modes." ;;;###autoload (defun typescript-ts-mode-maybe () - "Enable `typescript-ts-mode' when its grammar is available." + "Enable `typescript-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'typescript) (eq treesit-enabled-modes t) (memq 'typescript-ts-mode treesit-enabled-modes)) @@ -735,6 +738,7 @@ This mode is intended to be inherited by concrete major modes." (when (treesit-available-p) (add-to-list 'auto-mode-alist '("\\.ts\\'" . typescript-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(typescript-mode . typescript-ts-mode))) @@ -857,7 +861,10 @@ at least 3 (which is the default value)." ;;;###autoload (defun tsx-ts-mode-maybe () - "Enable `tsx-ts-mode' when its grammar is available." + "Enable `tsx-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'tsx) (eq treesit-enabled-modes t) (memq 'tsx-ts-mode treesit-enabled-modes)) @@ -868,6 +875,7 @@ at least 3 (which is the default value)." (when (treesit-available-p) (add-to-list 'auto-mode-alist '("\\.tsx\\'" . tsx-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(tsx-mode . tsx-ts-mode))) diff --git a/lisp/textmodes/css-mode.el b/lisp/textmodes/css-mode.el index 0a02aedfa4f..ffecc86cbe0 100644 --- a/lisp/textmodes/css-mode.el +++ b/lisp/textmodes/css-mode.el @@ -1917,6 +1917,7 @@ can also be used to fill comments. ;;;###autoload (when (treesit-available-p) + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(css-mode . css-ts-mode))) diff --git a/lisp/textmodes/markdown-ts-mode.el b/lisp/textmodes/markdown-ts-mode.el index 4af80f80b5f..7f705ddb8b2 100644 --- a/lisp/textmodes/markdown-ts-mode.el +++ b/lisp/textmodes/markdown-ts-mode.el @@ -405,7 +405,10 @@ the same features enabled in MODE." ;;;###autoload (defun markdown-ts-mode-maybe () - "Enable `markdown-ts-mode' when its grammar is available." + "Enable `markdown-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'markdown) (eq treesit-enabled-modes t) (memq 'markdown-ts-mode treesit-enabled-modes)) @@ -416,6 +419,7 @@ the same features enabled in MODE." (when (treesit-available-p) (add-to-list 'auto-mode-alist '("\\.md\\'" . markdown-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(markdown-mode . markdown-ts-mode))) diff --git a/lisp/textmodes/mhtml-ts-mode.el b/lisp/textmodes/mhtml-ts-mode.el index be3873e848a..793e28ed0de 100644 --- a/lisp/textmodes/mhtml-ts-mode.el +++ b/lisp/textmodes/mhtml-ts-mode.el @@ -589,6 +589,7 @@ Powered by tree-sitter." ;;;###autoload (when (treesit-available-p) + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(mhtml-mode . mhtml-ts-mode))) diff --git a/lisp/textmodes/toml-ts-mode.el b/lisp/textmodes/toml-ts-mode.el index 511a6b5f8ed..f85ded35968 100644 --- a/lisp/textmodes/toml-ts-mode.el +++ b/lisp/textmodes/toml-ts-mode.el @@ -174,6 +174,7 @@ Return nil if there is no name or if NODE is not a defun node." ;;;###autoload (when (treesit-available-p) + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(conf-toml-mode . toml-ts-mode))) diff --git a/lisp/textmodes/yaml-ts-mode.el b/lisp/textmodes/yaml-ts-mode.el index 95c9c1abd7d..61c70340f8e 100644 --- a/lisp/textmodes/yaml-ts-mode.el +++ b/lisp/textmodes/yaml-ts-mode.el @@ -229,7 +229,10 @@ Return nil if there is no name or if NODE is not a defun node." ;;;###autoload (defun yaml-ts-mode-maybe () - "Enable `yaml-ts-mode' when its grammar is available." + "Enable `yaml-ts-mode' when its grammar is available. +Also propose to install the grammar when `treesit-enabled-modes' +is t or contains the mode name." + (declare-function treesit-language-available-p "treesit.c") (if (or (treesit-language-available-p 'yaml) (eq treesit-enabled-modes t) (memq 'yaml-ts-mode treesit-enabled-modes)) @@ -240,6 +243,7 @@ Return nil if there is no name or if NODE is not a defun node." (when (treesit-available-p) (add-to-list 'auto-mode-alist '("\\.ya?ml\\'" . yaml-ts-mode-maybe)) ;; To be able to toggle between an external package and core ts-mode: + (defvar treesit-major-mode-remap-alist) (add-to-list 'treesit-major-mode-remap-alist '(yaml-mode . yaml-ts-mode))) |
