diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-01-14 21:46:13 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-01-14 21:46:13 +0000 |
| commit | 2a673b03505ac168c99e90ea86943cbb11c00553 (patch) | |
| tree | 356a5895ec1360e1f8bf6fa2043eab0ecab9af4d /lisp/log-view.el | |
| parent | 84f6c6d05edd712f597f8bf180d5e5011d7122a0 (diff) | |
| download | emacs-2a673b03505ac168c99e90ea86943cbb11c00553.tar.gz | |
(log-view-message-re): The rev might be locked.
Diffstat (limited to 'lisp/log-view.el')
| -rw-r--r-- | lisp/log-view.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/log-view.el b/lisp/log-view.el index 219359344fa..ac854ba5d57 100644 --- a/lisp/log-view.el +++ b/lisp/log-view.el @@ -4,7 +4,7 @@ ;; Author: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: rcs sccs cvs log version-control -;; Revision: $Id: log-view.el,v 1.12 2001/12/16 16:28:59 monnier Exp $ +;; Revision: $Id: log-view.el,v 1.13 2001/12/31 20:25:41 rms Exp $ ;; This file is part of GNU Emacs. @@ -46,6 +46,7 @@ '(("q" . quit-window) ("z" . kill-this-buffer) ("m" . set-mark-command) + ;; ("e" . cvs-mode-edit-log) ("d" . log-view-diff) ("f" . log-view-find-version) ("n" . log-view-msg-next) @@ -84,7 +85,8 @@ "Working file: \\(.+\\)" "\\|SCCS/s\\.\\(.+\\):" "\\)\n")) -(defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\|rev \\([0-9]+\\): .*\\|D \\([.0-9]+\\) .*\\)$") +;; In RCS, a locked revision will look like "revision N.M\tlocked by: FOO". +(defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\(?:\t.*\\)?\\|rev \\([0-9]+\\): .*\\|D \\([.0-9]+\\) .*\\)$") (defconst log-view-font-lock-keywords `((,log-view-file-re |