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
_______________________________________________
auctex-devel mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/auctex-devel
