(log-view-current-file): Give a more explicit error if

log-view-file-re fails to find a match.

(log-view-current-file): Give a more explicit error if
log-view-file-re fails to find a match.
22f4e5c1 · Glenn Morris · b0bda246 · 22f4e5c1
Commit 22f4e5c1 authored Sep 02, 2007 by Glenn Morris
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 1 deletion

lisp/log-view.el lisp/log-view.el +2 -1

No files found.
--- 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)))