* lisp/vc/vc-git.el (vc-git-mergebase): More meaningful error message.

Display a readable error message instead of signaling an error on nil value.

diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el
index 3f89fad2351546dd4a67309b08906ddf1046a323..2d35061b2691df16d9a1cadfe7ab73fada236e33 100644 (file)
--- a/lisp/vc/vc-git.el
+++ b/lisp/vc/vc-git.el
@@ -1256,7 +1256,10 @@ log entries."
 
 (defun vc-git-mergebase (rev1 &optional rev2)
   (unless rev2 (setq rev2 "HEAD"))
-  (string-trim-right (vc-git--run-command-string nil "merge-base" rev1 rev2)))
+  (let ((base (vc-git--run-command-string nil "merge-base" rev1 rev2)))
+    (if base
+        (string-trim-right base)
+      (error "No common ancestor for merge base"))))
 
 (defvar log-view-message-re)
 (defvar log-view-file-re)