Mercurial > emacs
comparison lisp/vc-git.el @ 96213:09da7727f35f
* vc-hg.el (vc-annotate-convert-time, vc-default-status-printer):
* vc-rcs.el (vc-annotate-convert-time):
* vc-mtn.el (vc-annotate-convert-time):
* vc-git.el (vc-annotate-convert-time):
* vc-cvs.el (vc-annotate-convert-time):
* vc-bzr.el (vc-annotate-convert-time): Declare as functions.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Tue, 24 Jun 2008 02:41:04 +0000 |
| parents | 4da572dc4992 |
| children | d011b21b3f08 |
comparison
equal
deleted
inserted
replaced
| 96212:f2e3f3882eda | 96213:09da7727f35f |
|---|---|
| 540 (defun vc-git-annotate-command (file buf &optional rev) | 540 (defun vc-git-annotate-command (file buf &optional rev) |
| 541 ;; FIXME: rev is ignored | 541 ;; FIXME: rev is ignored |
| 542 (let ((name (file-relative-name file))) | 542 (let ((name (file-relative-name file))) |
| 543 (vc-git-command buf 0 name "blame" (if rev (concat "-r" rev))))) | 543 (vc-git-command buf 0 name "blame" (if rev (concat "-r" rev))))) |
| 544 | 544 |
| 545 (declare-function vc-annotate-convert-time "vc-annotate" (time)) | |
| 546 | |
| 545 (defun vc-git-annotate-time () | 547 (defun vc-git-annotate-time () |
| 546 (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) | 548 (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) |
| 547 (vc-annotate-convert-time | 549 (vc-annotate-convert-time |
| 548 (apply #'encode-time (mapcar (lambda (match) | 550 (apply #'encode-time (mapcar (lambda (match) |
| 549 (string-to-number (match-string match))) | 551 (string-to-number (match-string match))) |