Mercurial > emacs
changeset 105011:8acc6fb9ffc9
* vc-mtn.el (vc-mtn-annotate-command):
* vc-svn.el (vc-svn-annotate-command): Run asynchronously.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 14 Sep 2009 04:42:04 +0000 |
| parents | b3c2589ed19e |
| children | 0dbc7a436f38 |
| files | lisp/ChangeLog lisp/vc-mtn.el lisp/vc-svn.el |
| diffstat | 3 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))
--- 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.