From a1b38cf72ab3d57495644f6463cc2502f86c0b77 Mon Sep 17 00:00:00 2001 From: Yuan Fu Date: Fri, 8 Sep 2023 09:39:54 -0700 Subject: [PATCH] Extract c-ts-mode--feature-list out * lisp/progmodes/c-ts-mode.el (c-ts-mode--feature-list): New variable. --- lisp/progmodes/c-ts-mode.el | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/c-ts-mode.el b/lisp/progmodes/c-ts-mode.el index 5b698eb09f4..02874a5a165 100644 --- a/lisp/progmodes/c-ts-mode.el +++ b/lisp/progmodes/c-ts-mode.el @@ -496,6 +496,13 @@ NODE should be a labeled_statement. PARENT is its parent." ;;; Font-lock +(defvar c-ts-mode--feature-list + '(( comment definition) + ( keyword preprocessor string type) + ( assignment constant escape-sequence label literal) + ( bracket delimiter error function operator property variable)) + "`treesit-font-lock-feature-list' for `c-ts-mode'.") + (defvar c-ts-mode--preproc-keywords '("#define" "#if" "#ifdef" "#ifndef" "#else" "#elif" "#endif" "#include") @@ -1214,10 +1221,7 @@ BEG and END are described in `treesit-range-rules'." c-ts-mode--defun-for-class-in-imenu-p nil)))) (setq-local treesit-font-lock-feature-list - '(( comment definition) - ( keyword preprocessor string type) - ( assignment constant escape-sequence label literal) - ( bracket delimiter error function operator property variable)))) + c-ts-mode-feature-list)) (defvar treesit-load-name-override-list) -- 2.39.5