mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

* vc-hg.el (vc-annotate-convert-time, vc-default-status-printer):

Browse Source 
* 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.
This commit is contained in:
Dan Nicolaescu 2008-06-24 02:41:04 +00:00
parent f245f2c610
commit f8bd9ac6ef
7 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

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

2
lisp/vc-bzr.el
View File

@ -536,6 +536,8 @@ property containing author and date information."
(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)))

2
lisp/vc-cvs.el
View File

@ -570,6 +570,8 @@ Optional arg REVISION is a revision to annotate from."
(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."

2
lisp/vc-git.el
View File

@ -542,6 +542,8 @@ or BRANCH^ (where \"^\" can be repeated)."
(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

3
lisp/vc-hg.el
View File

@ -289,6 +289,7 @@ Optional arg REVISION is a revision to annotate from."
(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 @@ REV is the revision to check out into WORKFILE."
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)))

2
lisp/vc-mtn.el
View File

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

2
lisp/vc-rcs.el
View File

@ -769,6 +769,8 @@ Optional arg REVISION is a revision to annotate from."
(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."