(vc-arch-diff): Don't diff asynchronously if vc-disable-async-diff is

t.

diff --git a/lisp/vc-arch.el b/lisp/vc-arch.el
index 40ec2fb3884a9f95c247d7f868e17bbdaa5cdcc5..b821928c539ebaef446bd345b0c086ccd3514e15 100644 (file)
--- a/lisp/vc-arch.el
+++ b/lisp/vc-arch.el
@@ -377,7 +377,7 @@ Return non-nil if FILE is unchanged."
       (setq newvers nil))
   (if newvers
       (error "Diffing specific revisions not implemented.")
-    (let* ((async (fboundp 'start-process))
+    (let* ((async (and (not vc-disable-async-diff) (fboundp 'start-process)))
           ;; Run the command from the root dir.
           (default-directory (vc-arch-root file))
           (status