Index: lisp/log-view.el =================================================================== RCS file: /sources/emacs/emacs/lisp/log-view.el,v retrieving revision 1.37 diff -c -r1.37 log-view.el *** lisp/log-view.el 23 Jun 2007 03:06:21 -0000 1.37 --- lisp/log-view.el 4 Aug 2007 02:41:52 -0000 *************** *** 170,179 **** (defvar log-view-font-lock-keywords ;; We use `eval' so as to use the buffer-local value of log-view-file-re ;; and log-view-message-re, if applicable. ! '((eval . `(,log-view-file-re ! (1 (if (boundp 'cvs-filename-face) cvs-filename-face)) ! (0 log-view-file-face append))) ! (eval . `(,log-view-message-re . log-view-message-face)))) (defconst log-view-font-lock-defaults '(log-view-font-lock-keywords t nil nil nil)) --- 170,180 ---- (defvar log-view-font-lock-keywords ;; We use `eval' so as to use the buffer-local value of log-view-file-re ;; and log-view-message-re, if applicable. ! '((eval . (cons log-view-file-re ! '((1 (if (boundp 'cvs-filename-face) cvs-filename-face)) ! (0 log-view-file-face append)))) ! (eval . (cons log-view-message-re ! 'log-view-message-face)))) (defconst log-view-font-lock-defaults '(log-view-font-lock-keywords t nil nil nil))