我将它用于我的 Navi 次要模式:
;; Adding Navi to the syntax highlighting of emacs mode.
首先用他们的颜色制作新面孔,在我的例子中,绿色代表字母“t”的成功字体,青色代表“Navi”和“navi”。
如果需要,请阅读有关font-lock 的信息。
(make-face 'font-lock-Navi-face)
(set-face-foreground 'font-lock-Navi-face "cyan")
(make-face 'font-lock-success-face)
(set-face-attribute 'font-lock-success-face nil :foreground "green")
现在添加要附加的“关键字”(regexp):
(defun add-custom-keywords()
"adds a few keywords for emacs mode"
;
(font-lock-add-keywords nil
'(
("Navi\\|navi" . 'font-lock-Navi-face)
;; here you can see that I highlight the letter "t" in " t " when spaced,
;; or with a parenthesis\newline around it
("\\s-t\\s-\\|\\s-t)\\|\\s-t\n" . 'font-lock-success-face)
)
)
)
"\\|"
您可以简单地用您的字母“a”或“b”替换 Navi(“或”在这里)或 navi "a\\|b"
,然后给它面子。
; This is the hook to activate when the mode is triggered
(add-hook 'emacs-lisp-mode-hook 'add-custom-keywords)
最后一部分确保此字体将是“实时的”,并且每次打开文件时。