disable copilot max-char warning

init.org

@@ -1439,7 +1439,8 @@ Use =inheritenv= and =envrc= to load ~.envrc~ direnv files:
          ("C-S-<tab>" . 'copilot-accept-completion-by-line)
          )
   :config
-  (setq copilot-indent-offset-warning-disable t)
+  (setq copilot-indent-offset-warning-disable t
+        copilot-max-char-warning-disable t)
   (add-to-list 'copilot-indentation-alist '(org-mode 2))
   (add-to-list 'copilot-indentation-alist '(nix-mode 2))
   (add-to-list 'copilot-indentation-alist '(emacs-lisp-mode 2))

local-lisp/slang-ts-mode.el

@@ -1,23 +1,12 @@
+;;; -*- lexical-binding: t -*-
 (require 'treesit)
 
+(eval-when-compile (require 'rx))
+(require 'c-ts-common)
+
 (add-to-list
  'treesit-language-source-alist
- '(slang "https://github.com/tree-sitter-grammars/tree-sitter-slang"))
+ `(slang "https://github.com/tree-sitter-grammars/tree-sitter-slang"))
-
-(with-eval-after-load 'lsp-mode
-  (progn
-    ;; tree-sitter
-
-    ;; LSP
-    (add-to-list 'lsp-language-id-configuration '(".*\\.slang$" . "slang"))
-    (lsp-register-client (make-lsp-client
-                          :new-connection (lsp-stdio-connection "/opt/shader-slang-bin/bin/slangd")
-                          :activation-fn (lsp-activate-on "slang")
-                          :server-id 'slang))
-    ))
-
-(require 'c-ts-common)
-(require 'c-ts-mode)
 
 (defgroup slang nil "Khronos Slang Major Mode."
   :group 'languages)
@@ -60,6 +49,8 @@
     (modify-syntax-entry ?*   ". 23"   table)
     (modify-syntax-entry ?\n  "> b"    table)
     (modify-syntax-entry ?\^m "> b"    table)
+    ;; underscore is part of words
+    (modify-syntax-entry ?_   "w"      table)
     table)
   "Syntax table for `slang-ts-mode'.")