自定义Emacs主题加载器无法跨缓冲区切换主题的问题

问题背景 #

我使用Emacs 30.2编写了一个按文件扩展名加载主题的功能：打开文件或切换缓冲区时，不同编程语言文件会自动加载对应主题。该功能原本正常，后来突然失效——调试发现主题确实已启用，但界面样式完全没有变化。目前用find-file-hook和window-buffer-change-functions两个钩子触发加载逻辑，且钩子都能正常激活；我希望改用单个钩子覆盖扩展名变更或文件打开的场景，但认为钩子并非核心问题（毕竟之前能正常工作）。问题仅出现在切换缓冲区或打开不同扩展名的文件时，打开无对应主题的文件则无异常，怀疑和启用dired、fido模式有关，但无法确定。

当前使用代码 #

主题加载器代码 #

;; I like 'ignore-errors' for independency between modules.
 ;; So if someone is broken I can simply use Emacs without it working.

 (ignore-errors (load-file "~/.config/emacs/prisma/base/theme.el"))

 ;; In 'theme.el' are just styles out the dynamic themes scope.

 (add-to-list 'custom-theme-load-path "~/.config/emacs/prisma/lang/")

 (defun load-language-theme () "Load theme by file extension."

  (when buffer-file-name 

   (let* ((ext (file-name-extension buffer-file-name))
   (theme-name (when ext (intern ext))))
   
   (mapc 'disable-theme custom-enabled-themes)

   (when ext (ignore-errors (load-theme theme-name t))))))

 (add-hook 'find-file-hook 'load-language-theme)
 (add-hook 'window-buffer-change-functions (lambda (frame) (load-language-theme)))

主题文件结构（以Java主题为例） #

(deftheme java "Java theme.")

 (defvar variant-0 "#FF7300" "Color variant 0.")
 (defvar variant-1 "#FFAC66" "Color variant 1.") 
 (defvar variant-2 "#FF8E30" "Color variant 2.")

 (custom-theme-set-faces 'java
            
  `(font-lock-keyword-face ((t :foreground ,variant-1)))
  `(font-lock-constant-face ((t :foreground ,variant-2 :weight ultra-bold)))

  `(font-lock-operator-face ((t :foreground ,variant-1)))
  `(font-lock-delimiter-face ((t :foreground ,variant-1)))
  `(font-lock-bracket-face ((t :foreground ,variant-1)))
  `(font-lock-number-face ((t :foreground ,variant-0 :weight ultra-bold)))
                   
  `(font-lock-variable-name-face ((t :foreground ,variant-0)))
  `(font-lock-type-face ((t :foreground ,variant-2 :weight ultra-bold)))

  `(base-face ((t :foreground ,variant-0 :weight ultra-bold)))

  `(font-lock-string-face ((t :foreground ,variant-0 :weight ultra-bold)))
  `(font-lock-function-name-face ((t :foreground ,variant-2))))

 (provide-theme 'java)

修复方案 #

核心问题分析 #

1. 样式不生效：主题加载后，Emacs的语法高亮缓存没有刷新，导致新主题的face设置无法立即应用。
2. 钩子冗余：原有的两个钩子覆盖场景有限，且可能存在触发时机不匹配的问题。
3. 变量作用域冲突：主题中的variant-*是全局变量，切换主题时会被后续主题覆盖，导致样式混乱。

修改后的代码 #

优化后的主题加载器

;; 独立模块容错加载，某模块失效不影响整体使用
(ignore-errors (load-file "~/.config/emacs/prisma/base/theme.el"))

;; 添加语言主题存放路径
(add-to-list 'custom-theme-load-path "~/.config/emacs/prisma/lang/")

(defun load-language-theme ()
  "根据当前缓冲区文件扩展名加载对应主题"
  (when buffer-file-name
    (let* ((ext (file-name-extension buffer-file-name))
           (theme-name (when ext (intern ext))))
      ;; 禁用所有已启用的主题
      (mapc #'disable-theme custom-enabled-themes)
      ;; 加载对应主题并强制刷新语法高亮
      (when ext
        (ignore-errors
          (load-theme theme-name t)
          (font-lock-flush))))))

;; 使用单个钩子覆盖所有缓冲区变更场景（切换、打开、新建等）
(add-hook 'buffer-list-update-hook #'load-language-theme)

优化后的主题文件（以Java主题为例）

(deftheme java "Java主题")

;; 将颜色变量限定在主题定义的局部作用域，避免全局冲突
(let ((variant-0 "#FF7300")
      (variant-1 "#FFAC66")
      (variant-2 "#FF8E30"))
  (custom-theme-set-faces
   'java
   `(font-lock-keyword-face ((t :foreground ,variant-1)))
   `(font-lock-constant-face ((t :foreground ,variant-2 :weight ultra-bold)))
   `(font-lock-operator-face ((t :foreground ,variant-1)))
   `(font-lock-delimiter-face ((t :foreground ,variant-1)))
   `(font-lock-bracket-face ((t :foreground ,variant-1)))
   `(font-lock-number-face ((t :foreground ,variant-0 :weight ultra-bold)))
   `(font-lock-variable-name-face ((t :foreground ,variant-0)))
   `(font-lock-type-face ((t :foreground ,variant-2 :weight ultra-bold)))
   `(base-face ((t :foreground ,variant-0 :weight ultra-bold)))
   `(font-lock-string-face ((t :foreground ,variant-0 :weight ultra-bold)))
   `(font-lock-function-name-face ((t :foreground ,variant-2)))))

(provide-theme 'java)

修改说明 #

1. 钩子替换：用buffer-list-update-hook替代原有的两个钩子，该钩子会在缓冲区切换、新建、打开等所有相关场景触发，完全满足单个钩子的需求。
2. 添加语法高亮刷新：调用font-lock-flush强制刷新当前缓冲区的语法高亮，确保主题的face设置立即生效，解决“主题启用但样式不变”的核心问题。
3. 变量局部化：将主题中的颜色变量放到let块内，限定在主题定义的局部作用域，避免切换主题时全局变量被覆盖导致的样式混乱。

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