diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-12-16 16:28:59 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-12-16 16:28:59 +0000 |
| commit | 467ee23fac0ac8c2b9193629a8998eb8223e515d (patch) | |
| tree | db3627645155dfff4e4f610edf6e2db0538d253e /lisp/log-view.el | |
| parent | d3980715eef8218da9178e6791f3b619958445f3 (diff) | |
| download | emacs-467ee23fac0ac8c2b9193629a8998eb8223e515d.tar.gz | |
(log-view-message-re, log-view-current-tag):
Recognize Subversion's log output format.
Diffstat (limited to 'lisp/log-view.el')
| -rw-r--r-- | lisp/log-view.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/log-view.el b/lisp/log-view.el index 7aee6bdc6ed..bf3945837c9 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.10 2001/11/16 13:53:05 monnier Exp $ +;; Revision: $Id: log-view.el,v 1.11 2001/11/26 16:08:51 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -84,7 +84,7 @@ "Working file: \\(.+\\)" "\\|SCCS/s\\.\\(.+\\):" "\\)\n")) -(defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\|D \\([.0-9]+\\) .*\\)$") +(defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\|rev \\([0-9]+\\): .*\\|D \\([.0-9]+\\) .*\\)$") (defconst log-view-font-lock-keywords `((,log-view-file-re @@ -150,7 +150,7 @@ (forward-line 1) (let ((pt (point))) (when (re-search-backward log-view-message-re nil t) - (let ((rev (or (match-string 2) (match-string 3)))) + (let ((rev (or (match-string 2) (match-string 3) (match-string 4)))) (unless (re-search-forward log-view-file-re pt t) rev)))))) @@ -182,9 +182,9 @@ (switch-to-buffer (vc-find-version (log-view-current-file) (log-view-current-tag))))) -;;; -;;; diff -;;; +;; +;; diff +;; (defun log-view-diff (beg end) "Get the diff for several revisions. |