(log-view-font-lock-keywords): Use `eval' so as to adapt to buffer settings.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 43508f79101a0a03bbd2398d703032b374c2ae86..713ad4d3bf693f6cc4a6f41e5463a09612b22772 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2007-08-10  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * log-view.el (log-view-font-lock-keywords): Use `eval' so as to adapt
+       to buffer-local settings.
+
        * emacs-lisp/backquote.el (backquote-delay-process): New function.
        (backquote-process): Add internal arg `level'.  Use the two to
        correctly handle nested backquotes.

diff --git a/lisp/log-view.el b/lisp/log-view.el
index 6a1fc9a11b17e50899ba09f4aca70e5e0cee01b5..41e689f00254454aa8516f4a1e709d1ed3552144 100644 (file)
--- a/lisp/log-view.el
+++ b/lisp/log-view.el
@@ -160,14 +160,18 @@
           (concat "\\|[^ \n].*[^0-9\n][0-9][0-9]:[0-9][0-9][^0-9\n].*[^ \n]"
                   ;;Email of user and finally Msg, used as revision name.
                   "  .*@.*\n\\(?:  \\* \\(.*\\)\\)?")
-          "\\)$"))
-
-(defconst log-view-font-lock-keywords
-  `((,log-view-file-re
-     (1 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t)
-     (2 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t)
-     (0 log-view-file-face append))
-    (,log-view-message-re . log-view-message-face)))
+          "\\)$")
+  "Regexp matching the text identifying a revision.")
+
+(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) nil t)
+              (2 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t)
+              (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))