Mercurial > emacs
changeset 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 | f2e3f3882eda |
| children | 1a846c7b956a |
| files | lisp/ChangeLog lisp/vc-bzr.el lisp/vc-cvs.el lisp/vc-git.el lisp/vc-hg.el lisp/vc-mtn.el lisp/vc-rcs.el |
| diffstat | 7 files changed, 22 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Jun 24 01:07:34 2008 +0000 +++ b/lisp/ChangeLog Tue Jun 24 02:41:04 2008 +0000 @@ -1,3 +1,12 @@ +2008-06-24 Dan Nicolaescu <dann@ics.uci.edu> + + * 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. + 2008-06-23 Dan Nicolaescu <dann@ics.uci.edu> * vc-annotate.el (vc-annotate-mode): Derive from special-mode
--- a/lisp/vc-bzr.el Tue Jun 24 01:07:34 2008 +0000 +++ b/lisp/vc-bzr.el Tue Jun 24 02:41:04 2008 +0000 @@ -536,6 +536,8 @@ (replace-match "") (insert tag " |"))))) +(declare-function vc-annotate-convert-time "vc-annotate" (time)) + (defun vc-bzr-annotate-time () (when (re-search-forward "^ *[0-9.]+ +|" nil t) (let ((prop (get-text-property (line-beginning-position) 'help-echo)))
--- a/lisp/vc-cvs.el Tue Jun 24 01:07:34 2008 +0000 +++ b/lisp/vc-cvs.el Tue Jun 24 02:41:04 2008 +0000 @@ -570,6 +570,8 @@ (re-search-forward vc-cvs-annotate-first-line-re) (delete-region (point-min) (1- (point))))))) +(declare-function vc-annotate-convert-time "vc-annotate" (time)) + (defun vc-cvs-annotate-current-time () "Return the current time, based at midnight of the current day, and encoded as fractional days."
--- a/lisp/vc-git.el Tue Jun 24 01:07:34 2008 +0000 +++ b/lisp/vc-git.el Tue Jun 24 02:41:04 2008 +0000 @@ -542,6 +542,8 @@ (let ((name (file-relative-name file))) (vc-git-command buf 0 name "blame" (if rev (concat "-r" rev))))) +(declare-function vc-annotate-convert-time "vc-annotate" (time)) + (defun vc-git-annotate-time () (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) (vc-annotate-convert-time
--- a/lisp/vc-hg.el Tue Jun 24 01:07:34 2008 +0000 +++ b/lisp/vc-hg.el Tue Jun 24 02:41:04 2008 +0000 @@ -289,6 +289,7 @@ (re-search-forward "^[ \t]*[0-9]") (delete-region (point-min) (match-beginning 0)))) +(declare-function vc-annotate-convert-time "vc-annotate" (time)) ;; The format for one line output by "hg annotate -d -n" looks like this: ;;215 Wed Jun 20 21:22:58 2007 -0700: CONTENTS @@ -425,6 +426,8 @@ rename-state ;; rename or copy state extra-name) ;; original name for copies and rename targets, new name for +(declare-function vc-default-status-printer "vc-dir" (backend fileentry)) + (defun vc-hg-status-printer (info) "Pretty-printer for the vc-dir-fileinfo structure." (let ((extra (vc-dir-fileinfo->extra info)))
--- a/lisp/vc-mtn.el Tue Jun 24 01:07:34 2008 +0000 +++ b/lisp/vc-mtn.el Tue Jun 24 02:41:04 2008 +0000 @@ -190,6 +190,8 @@ (apply 'vc-mtn-command buf 0 file "annotate" (if rev (list "-r" rev)))) +(declare-function vc-annotate-convert-time "vc-annotate" (time)) + (defconst vc-mtn-annotate-full-re "^ *\\([0-9a-f]+\\)\\.* by [^ ]+ \\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\): ") (defconst vc-mtn-annotate-any-re
--- a/lisp/vc-rcs.el Tue Jun 24 01:07:34 2008 +0000 +++ b/lisp/vc-rcs.el Tue Jun 24 02:41:04 2008 +0000 @@ -769,6 +769,8 @@ (insert (gethash (get-text-property (point) :vc-rcs-r/d/a) ht)) (forward-line 1)))) +(declare-function vc-annotate-convert-time "vc-annotate" (time)) + (defun vc-rcs-annotate-current-time () "Return the current time, based at midnight of the current day, and encoded as fractional days."