[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/log-view.el,v [EMACS_22_BASE]
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/log-view.el,v [EMACS_22_BASE] |
Date: |
Fri, 10 Aug 2007 08:20:22 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Stefan Monnier <monnier> 07/08/10 08:20:21
Index: log-view.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/log-view.el,v
retrieving revision 1.33.2.2
retrieving revision 1.33.2.3
diff -u -b -r1.33.2.2 -r1.33.2.3
--- log-view.el 25 Jul 2007 04:47:14 -0000 1.33.2.2
+++ log-view.el 10 Aug 2007 08:20:20 -0000 1.33.2.3
@@ -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.
" address@hidden(?: \\* \\(.*\\)\\)?")
- "\\)$"))
+ "\\)$")
+ "Regexp matching the text identifying a revision.")
-(defconst log-view-font-lock-keywords
- `((,log-view-file-re
+(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))
- (,log-view-message-re . log-view-message-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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/log-view.el,v [EMACS_22_BASE],
Stefan Monnier <=