From: Stefan Monnier Date: Fri, 10 Aug 2007 08:20:20 +0000 (+0000) Subject: (log-view-font-lock-keywords): Use `eval' so as to adapt to buffer settings. X-Git-Tag: emacs-pretest-22.1.90~1022 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5bdc71d0cd0dde41c781591951695cf509585f78;p=emacs.git (log-view-font-lock-keywords): Use `eval' so as to adapt to buffer settings. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 43508f79101..713ad4d3bf6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2007-08-10 Stefan Monnier + * 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 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))