Mercurial > emacs
comparison lisp/vc-bzr.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 | d5ad6b6af42d |
| children | d9bc43f652b0 |
comparison
equal
deleted
inserted
replaced
| 96212:f2e3f3882eda | 96213:09da7727f35f |
|---|---|
| 534 'mouse-face 'highlight)) | 534 'mouse-face 'highlight)) |
| 535 (puthash key tag vc-bzr-annotation-table)) | 535 (puthash key tag vc-bzr-annotation-table)) |
| 536 (replace-match "") | 536 (replace-match "") |
| 537 (insert tag " |"))))) | 537 (insert tag " |"))))) |
| 538 | 538 |
| 539 (declare-function vc-annotate-convert-time "vc-annotate" (time)) | |
| 540 | |
| 539 (defun vc-bzr-annotate-time () | 541 (defun vc-bzr-annotate-time () |
| 540 (when (re-search-forward "^ *[0-9.]+ +|" nil t) | 542 (when (re-search-forward "^ *[0-9.]+ +|" nil t) |
| 541 (let ((prop (get-text-property (line-beginning-position) 'help-echo))) | 543 (let ((prop (get-text-property (line-beginning-position) 'help-echo))) |
| 542 (string-match "[0-9]+\\'" prop) | 544 (string-match "[0-9]+\\'" prop) |
| 543 (let ((str (match-string-no-properties 0 prop))) | 545 (let ((str (match-string-no-properties 0 prop))) |