diff options
| author | Juri Linkov | 2019-02-27 23:18:10 +0200 |
|---|---|---|
| committer | Juri Linkov | 2019-02-27 23:18:10 +0200 |
| commit | 4a16e6302d8971a2414543c9c04405df99271dfa (patch) | |
| tree | 7bdcc2a86c40c12ede5c0a7be28bc047e575662d | |
| parent | 5962a7c341a163a7080aa0a69873a6c14e64151b (diff) | |
| download | emacs-4a16e6302d8971a2414543c9c04405df99271dfa.tar.gz emacs-4a16e6302d8971a2414543c9c04405df99271dfa.zip | |
* lisp/vc/vc-annotate.el: Better error handling (bug#34532)
* lisp/vc/vc-annotate.el (vc-annotate-revision-previous-to-line):
Print message when prev-rev is nil.
| -rw-r--r-- | lisp/vc/vc-annotate.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/vc/vc-annotate.el b/lisp/vc/vc-annotate.el index 86fc8686c39..84838135fcc 100644 --- a/lisp/vc/vc-annotate.el +++ b/lisp/vc/vc-annotate.el | |||
| @@ -541,7 +541,9 @@ Return a cons (REV . FILENAME)." | |||
| 541 | (setq prev-rev | 541 | (setq prev-rev |
| 542 | (vc-call-backend vc-annotate-backend 'previous-revision | 542 | (vc-call-backend vc-annotate-backend 'previous-revision |
| 543 | fname rev)) | 543 | fname rev)) |
| 544 | (vc-annotate-warp-revision prev-rev fname))))) | 544 | (if (not prev-rev) |
| 545 | (message "No previous revisions") | ||
| 546 | (vc-annotate-warp-revision prev-rev fname)))))) | ||
| 545 | 547 | ||
| 546 | (defvar log-view-vc-backend) | 548 | (defvar log-view-vc-backend) |
| 547 | (defvar log-view-vc-fileset) | 549 | (defvar log-view-vc-fileset) |