# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1252903324 0
# Node ID 8acc6fb9ffc9f790d9f7bd9b78b6778b859a9d2f
# Parent  b3c2589ed19e730b1b0dd27557ba545c52e062a7
* vc-mtn.el (vc-mtn-annotate-command):
* vc-svn.el (vc-svn-annotate-command): Run asynchronously.

diff -r b3c2589ed19e -r 8acc6fb9ffc9 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Sep 14 04:38:49 2009 +0000
+++ b/lisp/ChangeLog	Mon Sep 14 04:42:04 2009 +0000
@@ -22,6 +22,9 @@
 	* vc-svn.el (vc-svn-print-log): Add an optional argument shortlog
 	that is ignored for now.
 
+	* vc-mtn.el (vc-mtn-annotate-command):
+	* vc-svn.el (vc-svn-annotate-command): Run asynchronously.
+
 2009-09-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* simple.el: Add mapping for backspace/delete/clear/tab/escape/return
diff -r b3c2589ed19e -r 8acc6fb9ffc9 lisp/vc-mtn.el
--- a/lisp/vc-mtn.el	Mon Sep 14 04:38:49 2009 +0000
+++ b/lisp/vc-mtn.el	Mon Sep 14 04:42:04 2009 +0000
@@ -221,7 +221,7 @@
            (if rev1 (list "-r" rev1)) (if rev2 (list "-r" rev2)))))
 
 (defun vc-mtn-annotate-command (file buf &optional rev)
-  (apply 'vc-mtn-command buf 0 file "annotate"
+  (apply 'vc-mtn-command buf 'async file "annotate"
          (if rev (list "-r" rev))))
 
 (declare-function vc-annotate-convert-time "vc-annotate" (time))
diff -r b3c2589ed19e -r 8acc6fb9ffc9 lisp/vc-svn.el
--- a/lisp/vc-svn.el	Mon Sep 14 04:38:49 2009 +0000
+++ b/lisp/vc-svn.el	Mon Sep 14 04:42:04 2009 +0000
@@ -688,7 +688,7 @@
 ;; Support for `svn annotate'
 
 (defun vc-svn-annotate-command (file buf &optional rev)
-  (vc-svn-command buf 0 file "annotate" (if rev (concat "-r" rev))))
+  (vc-svn-command buf 'async file "annotate" (if rev (concat "-r" rev))))
 
 (defun vc-svn-annotate-time-of-rev (rev)
   ;; Arbitrarily assume 10 commmits per day.