Mercurial > emacs
comparison lisp/vc-git.el @ 104871:7aab0a4e4fcd
(vc-git-annotate-command): Use separator to parse
arguments correctly.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 06 Sep 2009 22:08:31 +0000 |
| parents | abce8d2d9707 |
| children | b3c2589ed19e |
comparison
equal
deleted
inserted
replaced
| 104870:b9d37ab30db5 | 104871:7aab0a4e4fcd |
|---|---|
| 564 table (lambda () (vc-git-revision-table files)))) | 564 table (lambda () (vc-git-revision-table files)))) |
| 565 table)) | 565 table)) |
| 566 | 566 |
| 567 (defun vc-git-annotate-command (file buf &optional rev) | 567 (defun vc-git-annotate-command (file buf &optional rev) |
| 568 (let ((name (file-relative-name file))) | 568 (let ((name (file-relative-name file))) |
| 569 (vc-git-command buf 'async name "blame" "--date=iso" rev))) | 569 (vc-git-command buf 'async name "blame" "--date=iso" rev "--"))) |
| 570 | 570 |
| 571 (declare-function vc-annotate-convert-time "vc-annotate" (time)) | 571 (declare-function vc-annotate-convert-time "vc-annotate" (time)) |
| 572 | 572 |
| 573 (defun vc-git-annotate-time () | 573 (defun vc-git-annotate-time () |
| 574 (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) | 574 (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) |