procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
* vc-svn.el (vc-svn-annotate-command): Run asynchronously.
This commit is contained in:
Dan Nicolaescu 2009-09-14 04:42:04 +00:00
parent 32ba3abcc1
commit 837b0e99c5
3 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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

2
lisp/vc-mtn.el
View file

@ -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))

2
lisp/vc-svn.el
View file

@ -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.