Mercurial > emacs
comparison lisp/vc-git.el @ 104379:46cbb492149b
(vc-git-annotate-command): Run asynchronously.
Explicitly pass the date format to git blame so that user local
so that the output format can be parsed.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Fri, 21 Aug 2009 03:37:33 +0000 |
| parents | 67098a669a4c |
| children | 1c78b6ed2b93 |
comparison
equal
deleted
inserted
replaced
| 104378:2e03e5755cf1 | 104379:46cbb492149b |
|---|---|
| 551 table (lambda () (vc-git-revision-table files)))) | 551 table (lambda () (vc-git-revision-table files)))) |
| 552 table)) | 552 table)) |
| 553 | 553 |
| 554 (defun vc-git-annotate-command (file buf &optional rev) | 554 (defun vc-git-annotate-command (file buf &optional rev) |
| 555 (let ((name (file-relative-name file))) | 555 (let ((name (file-relative-name file))) |
| 556 (vc-git-command buf 0 name "blame" rev))) | 556 (vc-git-command buf 'async name "blame" "--date=iso" rev))) |
| 557 | 557 |
| 558 (declare-function vc-annotate-convert-time "vc-annotate" (time)) | 558 (declare-function vc-annotate-convert-time "vc-annotate" (time)) |
| 559 | 559 |
| 560 (defun vc-git-annotate-time () | 560 (defun vc-git-annotate-time () |
| 561 (and (re-search-forward "[0-9a-f]+[^()]+(.* \\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\) \\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) \\([-+0-9]+\\) +[0-9]+) " nil t) | 561 (and (re-search-forward "[0-9a-f]+[^()]+(.* \\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\) \\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) \\([-+0-9]+\\) +[0-9]+) " nil t) |