diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-09-02 01:50:12 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-09-02 01:50:12 +0000 |
| commit | 22f4e5c15a39d793bbfadf93ca21134f76c3138d (patch) | |
| tree | aa0ee85194c57ca273acf37f276434496a85706b /lisp/log-view.el | |
| parent | b0bda2462c265693438f08431a20a186efc6788a (diff) | |
| download | emacs-22f4e5c15a39d793bbfadf93ca21134f76c3138d.tar.gz | |
(log-view-current-file): Give a more explicit error if
log-view-file-re fails to find a match.
Diffstat (limited to 'lisp/log-view.el')
| -rw-r--r-- | lisp/log-view.el | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |