Mercurial > emacs

comparison lisp/log-view.el @ 49236:8df2e5ef3962

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(log-view-message-re): The rev might be locked.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 14 Jan 2003 21:46:13 +0000
parents 8a4077ab418c
children e88404e8f2cf
comparison
equal deleted inserted replaced
49235:beca89eeabb3 49236:8df2e5ef3962
2 2
3 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
4 4
5 ;; Author: Stefan Monnier <monnier@cs.yale.edu> 5 ;; Author: Stefan Monnier <monnier@cs.yale.edu>
6 ;; Keywords: rcs sccs cvs log version-control 6 ;; Keywords: rcs sccs cvs log version-control
7 ;; Revision: $Id: log-view.el,v 1.12 2001/12/16 16:28:59 monnier Exp $ 7 ;; Revision: $Id: log-view.el,v 1.13 2001/12/31 20:25:41 rms Exp $
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
10 10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by 12 ;; it under the terms of the GNU General Public License as published by
44 44
45 (easy-mmode-defmap log-view-mode-map 45 (easy-mmode-defmap log-view-mode-map
46 '(("q" . quit-window) 46 '(("q" . quit-window)
47 ("z" . kill-this-buffer) 47 ("z" . kill-this-buffer)
48 ("m" . set-mark-command) 48 ("m" . set-mark-command)
49 ;; ("e" . cvs-mode-edit-log)
49 ("d" . log-view-diff) 50 ("d" . log-view-diff)
50 ("f" . log-view-find-version) 51 ("f" . log-view-find-version)
51 ("n" . log-view-msg-next) 52 ("n" . log-view-msg-next)
52 ("p" . log-view-msg-prev) 53 ("p" . log-view-msg-prev)
53 ("N" . log-view-file-next) 54 ("N" . log-view-file-next)
82 (defconst log-view-file-re 83 (defconst log-view-file-re
83 (concat "^\\(" 84 (concat "^\\("
84 "Working file: \\(.+\\)" 85 "Working file: \\(.+\\)"
85 "\\|SCCS/s\\.\\(.+\\):" 86 "\\|SCCS/s\\.\\(.+\\):"
86 "\\)\n")) 87 "\\)\n"))
87 (defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\|rev \\([0-9]+\\): .*\\|D \\([.0-9]+\\) .*\\)$") 88 ;; In RCS, a locked revision will look like "revision N.M\tlocked by: FOO".
89 (defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\(?:\t.*\\)?\\|rev \\([0-9]+\\): .*\\|D \\([.0-9]+\\) .*\\)$")
88 90
89 (defconst log-view-font-lock-keywords 91 (defconst log-view-font-lock-keywords
90 `((,log-view-file-re 92 `((,log-view-file-re
91 (2 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t) 93 (2 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t)
92 (3 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t) 94 (3 (if (boundp 'cvs-filename-face) cvs-filename-face) nil t)