From 29fc964207c8cf9dcbe1006ec472dd457fe603c1 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 26 Feb 2026 14:15:21 +0200 Subject: [PATCH] ; Avoid byte-compilation warning in c-ts-common.el * lisp/progmodes/c-ts-common.el (c-ts-common-comment-start-skip): Move up to avoid byte-compiler warning. --- lisp/progmodes/c-ts-common.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/progmodes/c-ts-common.el b/lisp/progmodes/c-ts-common.el index 57c28bddace..d5e6b012fe7 100644 --- a/lisp/progmodes/c-ts-common.el +++ b/lisp/progmodes/c-ts-common.el @@ -54,6 +54,12 @@ ;;; Comment indentation and filling +(defvar c-ts-common-comment-start-skip + (rx (or (seq "/" (+ "/")) + (seq "/" (+ "*"))) + (* (syntax whitespace))) + "The `comment-start-skip' used by `c-ts-common-comment-setup'.") + (defun c-ts-common-looking-at-star (_n _p bol &rest _) "A tree-sitter simple indent matcher. Matches if there is a \"*\" after BOL." @@ -274,12 +280,6 @@ This function should be called at BOL. Used by ;; `adaptive-fill-first-line-regexp' decide. (t nil))) -(defvar c-ts-common-comment-start-skip - (rx (or (seq "/" (+ "/")) - (seq "/" (+ "*"))) - (* (syntax whitespace))) - "The `comment-start-skip' used by `c-ts-common-comment-setup'.") - (defun c-ts-common-comment-setup () "Set up local variables for C-like comment.