# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1188697812 0
# Node ID bdd75f65c6cd0d668b9f5759a4dc139109b0484c
# Parent  e7c5a54d8f0df97615578950ba4472b8f0bc487e
(log-view-current-file): Give a more explicit error if
log-view-file-re fails to find a match.

diff -r e7c5a54d8f0d -r bdd75f65c6cd lisp/log-view.el
--- a/lisp/log-view.el	Sun Sep 02 01:49:48 2007 +0000
+++ b/lisp/log-view.el	Sun Sep 02 01:50:12 2007 +0000
@@ -214,7 +214,8 @@
   (save-excursion
     (forward-line 1)
     (or (re-search-backward log-view-file-re nil t)
-	(re-search-forward log-view-file-re))
+	(re-search-forward log-view-file-re nil t)
+	(error "Unable to determine the current file")
     (let* ((file (match-string 1))
 	   (cvsdir (and (re-search-backward log-view-dir-re nil t)
 			(match-string 1)))