regex - 如何在 Emacs 的注释中不突出显示值？

Question

我想在某些配置文件中突出显示 true 和 false 值。我有这样做:

(defun my/highlight-in-properties-files ()
  "Highlight regexps in PROPERTIES files."
  (when (string-match-p ".properties" (file-name-nondirectory buffer-file-name))
    (highlight-regexp "true" 'hi-green)
    (highlight-regexp "false" 'hi-pink)))

但它也会在评论中突出显示这些值:

有没有办法排除那些突出显示？

更新 -- highlight-regexp 是‘hi-lock.el’中‘hi-lock-face-buffer’的别名。 string-match-p 是 ‘subr.el’ 中编译的 Lisp 函数。

Answer 1

您可以通过 font-lock-add-keywords 添加正则表达式，这已经说明了缓冲区中的注释语法，例如。

(defun my-font-lock-additions ()
  (require 'hi-lock)                    ; fonts
  (font-lock-add-keywords
   nil
   '(("\\btrue\\b"  . 'hi-green)
     ("\\bfalse\\b" . 'hi-pink)))
  (font-lock-flush))

然后调用 (font-lock-refresh-defaults) 恢复到 OG 设置。

坚持使用 highlight-regexp 的纯正则表达式解决方案无疑会在奇怪的情况下产生一些错误，但是，我认为仅自定义您的正则表达式以检查注释前缀可能也能很好地工作,

(defun my/highlight-in-properties-files ()
  "Highlight regexps in PROPERTIES files."
  (when (string-match-p ".properties" (file-name-nondirectory buffer-file-name))
    (comment-normalize-vars)            ; ensure comment variables are setup
    (let ((cmt-re (format "^[^%s]*" (regexp-quote (string-trim comment-start)))))
      (highlight-regexp (format "%s\\(\\_<true\\_>\\)" cmt-re) 'hi-green 1)
      (highlight-regexp (format "%s\\(\\_<false\\_>\\)" cmt-re) 'hi-pink 1))))