# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1135374572 0
# Node ID 0a80642ab161c744c8ba0098d6ae8eb9057f7b34
# Parent  4f8168154a547013f45cddff16e4ee339b03108d
Call autoload for vc-find-version.
(log-view-current-file): Adjust subgroup numbers.
(log-view-current-tag): Add `length'.

diff -r 4f8168154a54 -r 0a80642ab161 lisp/log-view.el
--- 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))))))