# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1262677595 28800
# Node ID d804f575197b96ef7e762c0bb1822fb028b0f59d
# Parent  79fa2d910b72e0506403f323b9eb895ec9d1caf7
(vc-bzr-diff): Obey vc-disable-async-diff.

diff -r 79fa2d910b72 -r d804f575197b lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jan 04 13:18:38 2010 -0500
+++ b/lisp/ChangeLog	Mon Jan 04 23:46:35 2010 -0800
@@ -1,3 +1,7 @@
+2010-01-05  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* vc-bzr.el (vc-bzr-diff): Obey vc-disable-async-diff.
+
 2010-01-04  Dan Nicolaescu  <dann@ics.uci.edu>
 
 	* vc-bzr.el (vc-bzr-state-heuristic): Make it work for lightweight
diff -r 79fa2d910b72 -r d804f575197b lisp/vc-bzr.el
--- a/lisp/vc-bzr.el	Mon Jan 04 13:18:38 2010 -0500
+++ b/lisp/vc-bzr.el	Mon Jan 04 23:46:35 2010 -0800
@@ -532,7 +532,8 @@
 (defun vc-bzr-diff (files &optional rev1 rev2 buffer)
   "VC bzr backend for diff."
   ;; `bzr diff' exits with code 1 if diff is non-empty.
-  (apply #'vc-bzr-command "diff" (or buffer "*vc-diff*") 'async files
+  (apply #'vc-bzr-command "diff" (or buffer "*vc-diff*")
+	 (if vc-disable-async-diff 1 'async) files
          "--diff-options" (mapconcat 'identity
                                      (vc-switches 'bzr 'diff)
 				     " ")