* vc-mtn.el (vc-mtn-annotate-command):

* vc-svn.el (vc-svn-annotate-command): Run asynchronously.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 63e684b8132d6a7d31605f7f30fe8b5e06ab2bd0..7e355d40e53cdd438bfb58592960d57f48d3dbc8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/vc-mtn.el b/lisp/vc-mtn.el
index 2127199887ef8ed908142d3f8809e69b81ad966d..e03dfaad3506183993d5f397d0f14dbae9ca47c0 100644 (file)
--- a/lisp/vc-mtn.el
+++ b/lisp/vc-mtn.el
@@ -221,7 +221,7 @@ If nil, use the value of `vc-diff-switches'.  If t, use no switches."
            (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 --git a/lisp/vc-svn.el b/lisp/vc-svn.el
index e10073e6b545d347b65b0aec7c46ed7411ad9b81..ff3eef245f180feacf026c7220d21474ea3e09cb 100644 (file)
--- a/lisp/vc-svn.el
+++ b/lisp/vc-svn.el
@@ -688,7 +688,7 @@ information about FILENAME and return its status."
 ;; 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.