branch: externals/vc-jj
commit 67561c5e3eac45ab34ff2f601cb3149255d713e0
Author: kobarity <kobar...@gmail.com>
Commit: kobarity <kobar...@gmail.com>
Fix vc-jj-test-annotate
Wait for the annotate process to complete.
---
vc-jj-tests.el | 3 +++
1 file changed, 3 insertions(+)
diff --git a/vc-jj-tests.el b/vc-jj-tests.el
index 5c6dd5effd..ab2c2d6358 100644
--- a/vc-jj-tests.el
+++ b/vc-jj-tests.el
@@ -134,6 +134,9 @@ is needed."
(find-file "README")
(setq readme-buffer (current-buffer))
(vc-annotate "README" change-2)
+ (let ((annotation-process (get-buffer-process (current-buffer))))
+ (while (process-live-p annotation-process)
+ (accept-process-output annotation-process)))
(setq annotation-buffer (current-buffer))
(goto-char (point-min))
(should (string-prefix-p (thing-at-point 'word) change-1))
