From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Mon, 14 Sep 2009 04:42:04 +0000 (+0000)
Subject: * vc-mtn.el (vc-mtn-annotate-command):
X-Git-Tag: emacs-pretest-23.1.90~1326
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=837b0e99c5bb9f5b54f3a35371b5a9d11ca5a492;p=emacs.git

* 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 63e684b8132..7e355d40e53 100644
--- 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 2127199887e..e03dfaad350 100644
--- 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 e10073e6b54..ff3eef245f1 100644
--- 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.