From 22f4e5c15a39d793bbfadf93ca21134f76c3138d Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 2 Sep 2007 01:50:12 +0000 Subject: [PATCH] (log-view-current-file): Give a more explicit error if log-view-file-re fails to find a match. --- lisp/log-view.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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))) -- 2.39.5