Mercurial > emacs

comparison lisp/log-view.el @ 78525:33690fc4e175

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(log-view-font-lock-keywords): Use `eval' so as to adapt to buffer settings.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 10 Aug 2007 08:20:20 +0000
parents 9355f9b7bbff
children 82b0e30f9888 e5a68f18fcb9
comparison
equal deleted inserted replaced
78524:30f73a22d4ce 78525:33690fc4e175
158 ;; message. 158 ;; message.
159 ;; First loosely match the date format. 159 ;; First loosely match the date format.
160 (concat "\\|[^ \n].*[^0-9\n][0-9][0-9]:[0-9][0-9][^0-9\n].*[^ \n]" 160 (concat "\\|[^ \n].*[^0-9\n][0-9][0-9]:[0-9][0-9][^0-9\n].*[^ \n]"
161 ;;Email of user and finally Msg, used as revision name. 161 ;;Email of user and finally Msg, used as revision name.
162 " .*@.*\n\\(?: \\* \\(.*\\)\\)?") 162 " .*@.*\n\\(?: \\* \\(.*\\)\\)?")
163 "\\)$")) 163 "\\)$")
164 164 "Regexp matching the text identifying a revision.")
165 (defconst log-view-font-lock-keywords 165
166 `((,log-view-file-re 166 (defvar log-view-font-lock-keywords
167 (1 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t) 167 ;; We use `eval' so as to use the buffer-local value of log-view-file-re
168 (2 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t) 168 ;; and log-view-message-re, if applicable.
169 (0 log-view-file-face append)) 169 '((eval . `(,log-view-file-re
170 (,log-view-message-re . log-view-message-face))) 170 (1 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t)
171 (2 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t)
172 (0 log-view-file-face append)))
173 (eval . `(,log-view-message-re . log-view-message-face))))
174
171 (defconst log-view-font-lock-defaults 175 (defconst log-view-font-lock-defaults
172 '(log-view-font-lock-keywords t nil nil nil)) 176 '(log-view-font-lock-keywords t nil nil nil))
173 177
174 ;;;; 178 ;;;;
175 ;;;; Actual code 179 ;;;; Actual code