From: Bob Rogers <rogers@rgrjr.dyndns.org>
Date: Sun, 10 Jul 2011 01:42:39 +0000 (-0400)
Subject: * vc/vc.el (vc-diff-internal): Fix race condition (Bug#1256).
X-Git-Tag: emacs-pretest-24.0.90~104^2~411^2~6
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=455e4fa13a50cfd3ad0ca765f1aca3e3d30cca6a;p=emacs.git

* vc/vc.el (vc-diff-internal): Fix race condition (Bug#1256).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f5a6c1eeaf4..40f96b05637 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-07-10  Bob Rogers  <rogers@rgrjr.dyndns.org>
+
+	* vc/vc.el (vc-diff-internal): Fix race condition (Bug#1256).
+
 2011-07-10  Chong Yidong  <cyd@stupidchicken.com>
 
 	* window.el (display-buffer): Fix arguments to
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el
index e3f3c153043..796311f8f66 100644
--- a/lisp/vc/vc.el
+++ b/lisp/vc/vc.el
@@ -1605,10 +1605,13 @@ Return t if the buffer had changes, nil otherwise."
       ;; bindings are nicer for read only buffers. pcl-cvs does the
       ;; same thing.
       (setq buffer-read-only t)
-      (vc-exec-after `(vc-diff-finish ,(current-buffer) ',(when verbose
-                                                            messages)))
       ;; Display the buffer, but at the end because it can change point.
       (pop-to-buffer (current-buffer))
+      ;; The diff process may finish early, so call `vc-diff-finish'
+      ;; after `pop-to-buffer'; the former assumes the diff buffer is
+      ;; shown in some window.
+      (vc-exec-after `(vc-diff-finish ,(current-buffer)
+				      ',(when verbose messages)))
       ;; In the async case, we return t even if there are no differences
       ;; because we don't know that yet.
       t)))