# HG changeset patch # User Andr Spiegel # Date 1105306167 0 # Node ID 5173e8c74cae28f49b7b49479e68aa011a7a7ed0 # Parent fd6e4e55ca843075cdb3b5bae4e614004db231b8 (vc-arch-diff): Don't diff asynchronously if vc-disable-async-diff is t. diff -r fd6e4e55ca84 -r 5173e8c74cae lisp/vc-arch.el --- a/lisp/vc-arch.el Sun Jan 09 21:28:53 2005 +0000 +++ b/lisp/vc-arch.el Sun Jan 09 21:29:27 2005 +0000 @@ -377,7 +377,7 @@ (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