aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuri Linkov2019-02-27 23:18:10 +0200
committerJuri Linkov2019-02-27 23:18:10 +0200
commit4a16e6302d8971a2414543c9c04405df99271dfa (patch)
tree7bdcc2a86c40c12ede5c0a7be28bc047e575662d
parent5962a7c341a163a7080aa0a69873a6c14e64151b (diff)
downloademacs-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.el4
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)