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