[Emacs-diffs] emacs/lisp ChangeLog vc-mtn.el vc-svn.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/09/14 04:42:07

Modified files:
        lisp           : ChangeLog vc-mtn.el vc-svn.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16166&r2=1.16167
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-mtn.el?cvsroot=emacs&r1=1.25&r2=1.26
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-svn.el?cvsroot=emacs&r1=1.117&r2=1.118

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16166
retrieving revision 1.16167
diff -u -b -r1.16166 -r1.16167
--- ChangeLog   14 Sep 2009 04:38:51 -0000      1.16166
+++ ChangeLog   14 Sep 2009 04:42:04 -0000      1.16167
@@ -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  <address@hidden>
 
        * simple.el: Add mapping for backspace/delete/clear/tab/escape/return

Index: vc-mtn.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-mtn.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- vc-mtn.el   14 Sep 2009 04:38:55 -0000      1.25
+++ vc-mtn.el   14 Sep 2009 04:42:07 -0000      1.26
@@ -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))

Index: vc-svn.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-svn.el,v
retrieving revision 1.117
retrieving revision 1.118
diff -u -b -r1.117 -r1.118
--- vc-svn.el   14 Sep 2009 04:38:56 -0000      1.117
+++ vc-svn.el   14 Sep 2009 04:42:07 -0000      1.118
@@ -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.