diff options
| author | Juri Linkov <juri@linkov.net> | 2019-02-27 23:18:10 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2019-02-27 23:18:10 +0200 |
| commit | 4a16e6302d8971a2414543c9c04405df99271dfa (patch) | |
| tree | 7bdcc2a86c40c12ede5c0a7be28bc047e575662d /lisp/vc/vc-annotate.el | |
| parent | 5962a7c341a163a7080aa0a69873a6c14e64151b (diff) | |
| download | emacs-4a16e6302d8971a2414543c9c04405df99271dfa.tar.gz emacs-4a16e6302d8971a2414543c9c04405df99271dfa.tar.bz2 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.
Diffstat (limited to 'lisp/vc/vc-annotate.el')
| -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)." (setq prev-rev (vc-call-backend vc-annotate-backend 'previous-revision fname rev)) - (vc-annotate-warp-revision prev-rev fname))))) + (if (not prev-rev) + (message "No previous revisions") + (vc-annotate-warp-revision prev-rev fname)))))) (defvar log-view-vc-backend) (defvar log-view-vc-fileset) |