如何使Emacs编程模式（prog mode）下扩展Face文本属性的代码生效？

你的代码在Fundamental模式生效但编程模式失效，核心原因是编程模式默认启用的font-lock-mode会覆盖文本的自定义face属性——语法高亮的优先级高于直接通过propertize设置的文本属性，导致下划线样式被覆盖。

这里提供两种可靠的解决方法：

方法一：使用Overlay（推荐） #

Overlay的属性优先级高于font-lock的语法高亮，能确保样式在编程模式下正常显示：

(let ((ov (make-overlay (point) (1+ (point)))))
  (overlay-put ov 'face '(:inherit shadow :extend t :underline t))
  (insert "\n"))

这段代码会在当前光标位置创建一个覆盖新插入换行符的overlay，并为其设置指定的face样式，完全不受font-lock的干扰。

方法二：调整属性优先级 #

如果你坚持使用propertize，可以通过添加font-lock-face属性来提升优先级，让自定义样式覆盖语法高亮：

(insert (propertize "\n" 'font-lock-face '(:inherit shadow :extend t :underline t)))

不过这种方法在部分复杂的编程模式（如Python、C++模式）下可能仍存在兼容性问题，不如overlay稳定。

内容的提问来源于stack exchange，提问作者Kasper Gałkowski