diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-10 08:20:20 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2007-08-10 08:20:20 +0000 |
| commit | 5bdc71d0cd0dde41c781591951695cf509585f78 (patch) | |
| tree | cbcf34fd042d45a60db108a75ddecdff826282c0 /lisp/log-view.el | |
| parent | a22dec271e8bb8be08a87e9aad39bb59ffb4d284 (diff) | |
| download | emacs-5bdc71d0cd0dde41c781591951695cf509585f78.tar.gz | |
(log-view-font-lock-keywords): Use `eval' so as to adapt to buffer settings.
Diffstat (limited to 'lisp/log-view.el')
| -rw-r--r-- | lisp/log-view.el | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/lisp/log-view.el b/lisp/log-view.el index 6a1fc9a11b1..41e689f0025 100644 --- 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)) |