From 3a1e8eb01481423ad8309e52931d580704f62141 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Augustin=20Ch=C3=A9neau?= Date: Thu, 21 Sep 2023 18:29:24 +0200 Subject: [PATCH 3/3] Extract feature list of java-ts-mode in a variable --- lisp/progmodes/java-ts-mode.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/java-ts-mode.el b/lisp/progmodes/java-ts-mode.el index 99d34789dcc..a6bc4c4bded 100644 --- a/lisp/progmodes/java-ts-mode.el +++ b/lisp/progmodes/java-ts-mode.el @@ -303,6 +303,13 @@ java-ts-mode--defun-name (treesit-node-child-by-field-name node "name") t)))) + +(defvar java-ts-mode--feature-list + '(( comment definition ) + ( constant keyword string type) + ( annotation expression literal) + ( bracket delimiter operator))) + ;;;###autoload (define-derived-mode java-ts-mode prog-mode "Java" "Major mode for editing Java, powered by tree-sitter." @@ -382,11 +389,7 @@ java-ts-mode ;; Font-lock. (setq-local treesit-font-lock-settings java-ts-mode--font-lock-settings) - (setq-local treesit-font-lock-feature-list - '(( comment definition ) - ( constant keyword string type) - ( annotation expression literal) - ( bracket delimiter operator))) + (setq-local treesit-font-lock-feature-list java-ts-mode--feature-list) ;; Imenu. (setq-local treesit-simple-imenu-settings -- 2.42.0