Mercurial > emacs

changeset 67775:0a80642ab161

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Call autoload for vc-find-version. (log-view-current-file): Adjust subgroup numbers. (log-view-current-tag): Add `length'.
author Juri Linkov <juri@jurta.org>
date Fri, 23 Dec 2005 21:49:32 +0000
parents 4f8168154a54
children 923593002b13
files lisp/log-view.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/log-view.el	Fri Dec 23 17:37:50 2005 +0000
+++ b/lisp/log-view.el	Fri Dec 23 21:49:32 2005 +0000
@@ -60,6 +60,7 @@
 
 (eval-when-compile (require 'cl))
 (require 'pcvs-util)
+(autoload 'vc-find-version "vc")
 (autoload 'vc-version-diff "vc")
 
 (defvar cvs-minor-wrap-function)
@@ -168,7 +169,7 @@
     (forward-line 1)
     (or (re-search-backward log-view-file-re nil t)
 	(re-search-forward log-view-file-re))
-    (let* ((file (or (match-string 2) (match-string 3)))
+    (let* ((file (or (match-string 1) (match-string 2)))
 	   (cvsdir (and (re-search-backward log-view-dir-re nil t)
 			(match-string 1)))
 	   (pcldir (and (boundp 'cvs-pcl-cvs-dirchange-re)
@@ -188,7 +189,7 @@
       (when (re-search-backward log-view-message-re nil t)
         (let (rev)
           ;; Find the subgroup that matched.
-          (dotimes (i (/ (match-data 'integers) 2))
+          (dotimes (i (/ (length (match-data 'integers)) 2))
             (setq rev (or rev (match-string (1+ i)))))
 	  (unless (re-search-forward log-view-file-re pt t)
 	    rev))))))