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