[AUCTeX-devel] font problem

[Uwe Brauer]

Hello

The following works in in lisp-mode using font lock
(defface font-lock-comment-warn-face
  '((((class color))  (:foreground "red" :bold t :italic t))
    (((class grayscale) (background light))
     (:foreground "DimGray" :bold t :italic t))
    (((class grayscale) (background dark))
     (:foreground "LightGray" :bold t :italic t))
    (t (:bold t)))
  "Font Lock mode face used to highlight warning comments."
  :group 'font-lock-faces)

      (let ((lisp-regexp "; ?\\(\\<oub:\\>\\)"))
        (setq lisp-font-lock-keywords-1
              (append lisp-font-lock-keywords-1
                      (list (list lisp-regexp 1 'font-lock-comment-warn-face 
t))))
        (setq lisp-font-lock-keywords-2
              (append lisp-font-lock-keywords-2
                      (list (list lisp-regexp 1 'font-lock-comment-warn-face
                      t)))))

So I enhanced it like this:

(progn
      (let ((lisp-regexp "; ?\\(\\<oub:\\>\\)"))
        (setq lisp-font-lock-keywords-1
              (append lisp-font-lock-keywords-1
                      (list (list lisp-regexp 1 'font-lock-comment-warn-face 
t))))
        (setq lisp-font-lock-keywords-2
              (append lisp-font-lock-keywords-2
                      (list (list lisp-regexp 1 'font-lock-comment-warn-face 
t)))))
      (let ((tex2-regexp "% ?\\(\\<oub:\\>\\)"))
        (setq tex-font-lock-keywords
              (append tex-font-lock-keywords
                      (list (list tex2-regexp 1 'font-lock-comment-warn-face 
t))))))

But it does not work.
Lines starting with oub: are not treated differently.

Can anybody give me a hint.

Uwe Brauer