From: Glenn Morris <rgm@gnu.org>
Date: Sun, 2 Sep 2007 01:50:12 +0000 (+0000)
Subject: (log-view-current-file): Give a more explicit error if
X-Git-Tag: emacs-pretest-23.0.90~11146
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=22f4e5c15a39d793bbfadf93ca21134f76c3138d;p=emacs.git

(log-view-current-file): Give a more explicit error if
log-view-file-re fails to find a match.
---

diff --git a/lisp/log-view.el b/lisp/log-view.el
index a904a0355dd..2ca52443979 100644
--- a/lisp/log-view.el
+++ b/lisp/log-view.el
@@ -214,7 +214,8 @@ The match group number 1 should match the revision number itself.")
   (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)))