From 837b0e99c5bb9f5b54f3a35371b5a9d11ca5a492 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Mon, 14 Sep 2009 04:42:04 +0000 Subject: [PATCH] * vc-mtn.el (vc-mtn-annotate-command): * vc-svn.el (vc-svn-annotate-command): Run asynchronously. --- lisp/ChangeLog | 3 +++ lisp/vc-mtn.el | 2 +- lisp/vc-svn.el | 2 +- 3 files changed, 5 insertions(+), 2 deletions(-) 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 * 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. -- 2.39.5