From 5f8d4435a316855c60b9b2db5c0bb291a28d4b32 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Augustin=20Ch=C3=A9neau?= Date: Fri, 8 Sep 2023 13:20:51 +0200 Subject: [PATCH] Put font-lock features of c-ts-mode in a variable to allow reuse --- lisp/progmodes/c-ts-mode.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/c-ts-mode.el b/lisp/progmodes/c-ts-mode.el index 5b698eb09f4..c551f9f06b4 100644 --- a/lisp/progmodes/c-ts-mode.el +++ b/lisp/progmodes/c-ts-mode.el @@ -1123,6 +1123,13 @@ c-ts-mode--emacs-set-ranges (setq-local c-ts-mode--for-each-tail-ranges set-ranges) (treesit-parser-set-included-ranges c-parser reversed-ranges))) +(defvar c-ts-mode--font-lock-feature-list + '(( comment definition) + ( keyword preprocessor string type) + ( assignment constant escape-sequence label literal) + ( bracket delimiter error function operator property variable))) + + ;;; Modes (defvar-keymap c-ts-base-mode-map @@ -1213,11 +1220,7 @@ c-ts-base-mode eos) 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)))) + (setq-local treesit-font-lock-feature-list c-ts-mode--font-lock-feature-list)) (defvar treesit-load-name-override-list) -- 2.42.0