将正则表达式与define-generic-mode中的关键字匹配

我正在尝试使用define-generic-mode为emacs编写新模式.我找到了一些教程,展示了如何添加关键字(作为字符串),然后突出显示.是否可以为define-generic-mode提供正则表达式,以便它可以突出显示与关键字相匹配的任何内容？

我希望有一种模式,其中任何与15/01/09表格中的日期匹配的内容都以不同的字体显示(最好加下划线,但我会接受不同的颜色).

有任何想法吗？

知更鸟

下面是一个示例define-generic-mode,设置正则表达式,使用自定义面来确定所有日期,并选择一些属性作为示例:

(make-face 'my-date-face)
(set-face-attribute 'my-date-face nil :underline t)
(set-face-attribute 'my-date-face nil :family "times")
(set-face-attribute 'my-date-face nil :slant 'normal)
(set-face-attribute 'my-date-face nil :height '340)

(define-generic-mode my-date-mode
  nil
  nil 
  '(("\\([0-9]+/[0-9]+/[0-9]+\\)"
     (1 'my-date-face)))
  nil
  nil)

哦,显然,设置模式M-x my-date-mode.这可以通过auto-mode-alist(第5个参数define-generic-mode)自动完成.

例如,使用font-lock-add-keywords以在主要模式中突出显示FIXME,TODO和XXX作为警告:

   (dolist (mode '(c-mode
    java-mode
    cperl-mode
    html-mode-hook
    css-mode-hook
    emacs-lisp-mode))
            (font-lock-add-keywords mode 
          '(("\\(XXX\\|FIXME\\|TODO\\)" 
             1 font-lock-warning-face prepend))))