Mercurial > emacs

comparison lisp/log-view.el @ 83455:8438f5473d99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 174-181, 685-690) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-685 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-686 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-687 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-688 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-689 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-690 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-174 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-175 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-176 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-177 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-178 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-179 Update from CVS: texi/gnus.texi (RSS): Addition. * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-180 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-181 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-495
author Karoly Lorentey <lorentey@elte.hu>
date Thu, 12 Jan 2006 11:20:02 +0000
parents 150225f41e97
children 4804f7b39bfe 7beb78bc1f8e
comparison
equal deleted inserted replaced
83454:845a93c68e9a 83455:8438f5473d99
25 25
26 ;;; Commentary: 26 ;;; Commentary:
27 27
28 ;; Major mode to browse revision log histories. 28 ;; Major mode to browse revision log histories.
29 ;; Currently supports the format output by: 29 ;; Currently supports the format output by:
30 ;; RCS, SCCS, CVS, Subversion. 30 ;; RCS, SCCS, CVS, Subversion, and DaRCS.
31 31
32 ;; Examples of log output: 32 ;; Examples of log output:
33 33
34 ;;;; RCS/CVS: 34 ;;;; RCS/CVS:
35 35
47 ;; Change development version from 21.3.50 to 22.0.50. 47 ;; Change development version from 21.3.50 to 22.0.50.
48 48
49 ;;;; SCCS: 49 ;;;; SCCS:
50 50
51 ;;;; Subversion: 51 ;;;; Subversion:
52
53 ;;;; Darcs:
54
55 ;; Changes to darcsum.el:
56 ;;
57 ;; Mon Nov 28 15:19:38 GMT 2005 Dave Love <fx@gnu.org>
58 ;; * Abstract process startup into darcsum-start-process. Use TERM=dumb.
59 ;; TERM=dumb avoids escape characters, at least, for any old darcs that
60 ;; doesn't understand DARCS_DONT_COLOR & al.
61 ;;
62 ;; Thu Nov 24 15:20:45 GMT 2005 Dave Love <fx@gnu.org>
63 ;; * darcsum-mode-related changes.
64 ;; Don't call font-lock-mode (unnecessary) or use-local-map (redundant).
65 ;; Use mode-class 'special. Add :group.
66 ;; Add trailing-whitespace option to mode hook and fix
67 ;; darcsum-display-changeset not to use trailing whitespace.
52 68
53 ;;; Todo: 69 ;;; Todo:
54 70
55 ;; - add ability to modify a log-entry (via cvs-mode-admin ;-) 71 ;; - add ability to modify a log-entry (via cvs-mode-admin ;-)
56 ;; - remove references to cvs-* 72 ;; - remove references to cvs-*
112 (put 'log-view-message-face 'face-alias 'log-view-message) 128 (put 'log-view-message-face 'face-alias 'log-view-message)
113 (defvar log-view-message-face 'log-view-message) 129 (defvar log-view-message-face 'log-view-message)
114 130
115 (defconst log-view-file-re 131 (defconst log-view-file-re
116 (concat "^\\(?:Working file: \\(.+\\)" ;RCS and CVS. 132 (concat "^\\(?:Working file: \\(.+\\)" ;RCS and CVS.
117 "\\|SCCS/s\\.\\(.+\\):" ;SCCS. 133 "\\|\\(?:SCCS/s\\.\\|Changes to \\)\\(.+\\):" ;SCCS and Darcs.
118 "\\)\n")) ;Include the \n for font-lock reasons. 134 "\\)\n")) ;Include the \n for font-lock reasons.
119 135
120 (defconst log-view-message-re 136 (defconst log-view-message-re
121 (concat "^\\(?:revision \\([.0-9]+\\)\\(?:\t.*\\)?" ; RCS and CVS. 137 (concat "^\\(?:revision \\([.0-9]+\\)\\(?:\t.*\\)?" ; RCS and CVS.
122 "\\|r\\([0-9]+\\) | .* | .*" ; Subversion. 138 "\\|r\\([0-9]+\\) | .* | .*" ; Subversion.
123 "\\|D \\([.0-9]+\\) .*" ; SCCS. 139 "\\|D \\([.0-9]+\\) .*" ; SCCS.
140 ;; Darcs doesn't have revision names. VC-darcs uses patch names
141 ;; instead. Darcs patch names are hashcodes, which do not appear
142 ;; in the log output :-(, but darcs accepts any prefix of the log
143 ;; message as a patch name, so we match the first line of the log
144 ;; message.
145 ;; First loosely match the date format.
146 (concat "\\|[^ \n].*[^0-9\n][0-9][0-9]:[0-9][0-9][^0-9\n].*[^ \n]"
147 ;;Email of user and finally Msg, used as revision name.
148 " .*@.*\n\\(?: \\* \\(.*\\)\\)?")
124 "\\)$")) 149 "\\)$"))
125 150
126 (defconst log-view-font-lock-keywords 151 (defconst log-view-font-lock-keywords
127 `((,log-view-file-re 152 `((,log-view-file-re
128 (1 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t) 153 (1 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t)