如何修改GNU Emacs Tcl语法高亮并配置自定义后缀文件高亮

Emacs 26.3自带的tcl-mode默认不对花括号块做语义区分，会把所有花括号包裹内容里的控制流关键字全部高亮，才会出现普通列表里的if/for/error被错误着色的问题，不需要全量改写高亮规则，用下面的轻量配置就能修正，其余正常高亮逻辑完全保留：

• 核心调整思路是把「全花括号块关键字扫描」改成「仅控制流命令后的花括号块扫描」，把下面代码加到你的Emacs配置文件（~/.emacs或~/.emacs.d/init.el）里即可生效：

(with-eval-after-load 'tcl
  ;; 移除默认的全局花括号关键字匹配规则
  (setq tcl-font-lock-keywords
        (cl-delete-if
         (lambda (rule)
           (and (consp rule) (eq (car rule) 'tcl-font-lock-syntactic-keywords-1)))
         tcl-font-lock-keywords))
  ;; 仅对明确的控制流/过程定义命令后的代码块做关键字高亮
  (add-hook 'tcl-mode-hook
            (lambda ()
              (font-lock-add-keywords
               nil
               `((,(regexp-opt '("if" "else" "elseif" "while" "for" "foreach" "proc" "catch") 'symbols)
                  (0 (progn
                       (goto-char (match-end 0))
                       (skip-chars-forward " \t\n")
                       (when (eq (char-after) ?{)
                         (forward-char)
                         (tcl-font-lock-block-keywords))))))))))

• 如果你平时常用的传入列表的Tcl命令比较固定（比如set、lappend、list、dict create这类），还可以追加规则把这些命令后的花括号块标记为普通文本，误判率会更低。

原生Tcl模式文件位置 #

Ubuntu环境下GNU Emacs 26.3自带的Tcl模式文件存放在/usr/share/emacs/26.3/lisp/progmodes/目录下，核心文件是tcl.el（源码）和tcl.elc（字节编译文件），不要直接修改这个路径下的系统文件，后续系统包升级会直接覆盖所有改动。

自定义配置存放路径 #

个人自定义的模式文件统一放在~/.emacs.d/lisp/目录下即可，这个目录如果不存在手动创建就行，你的自定义高亮规则可以存为~/.emacs.d/lisp/mylang-tcl.el。

后缀绑定与规则隔离配置 #

按下面步骤配置就能让.mylang.tcl文件完全加载自定义规则，不会触发默认Tcl高亮：

1. 先在Emacs入口配置文件里把自定义lisp目录加入加载路径：

(add-to-list 'load-path "~/.emacs.d/lisp/")

2. 在mylang-tcl.el里基于tcl-mode派生独立的自定义模式，不需要从零写所有高亮规则，只需要修改你需要调整的部分即可：

(define-derived-mode mylang-tcl-mode tcl-mode "MyLang/Tcl"
  "Major mode for .mylang.tcl files with custom syntax rules."
  ;; 在这里写你的自定义高亮规则，比如新增自定义语言的关键字、移除不需要的Tcl原生关键字高亮
  (setq font-lock-defaults '(mylang-tcl-font-lock-keywords)))

(provide 'mylang-tcl)

3. 配置后缀与模式的绑定，注意auto-mode-alist是顺序匹配，把更具体的.mylang.tcl匹配规则放在列表最前面，优先级高于默认的.tcl规则：

(require 'mylang-tcl)
(add-to-list 'auto-mode-alist '("\\.mylang\\.tcl\\'" . mylang-tcl-mode))

配置完成后执行M-x eval-buffer重载配置，或者重启Emacs，之后打开.mylang.tcl后缀的文件就会自动加载自定义的mylang-tcl-mode，不会加载默认的Tcl高亮规则。

内容的提问来源于stack exchange，提问作者Ralf