From 0bcc6163fe83d56aef78034841e8938504d487da Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Sun, 25 Nov 2007 00:42:41 +0000 Subject: [PATCH] (vc-git-annotate-time): Handle optional field FILENAME. Also, match one space at end of annotation text, after last paren. --- lisp/ChangeLog | 3 +++ lisp/vc-git.el | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0873acd70a2..997cc9d5ec4 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -25,6 +25,9 @@ (vc-annotate-display-autoscale) (vc-annotate-display-difference): Use it. + * vc-git.el (vc-git-annotate-time): Handle optional field FILENAME. + Also, match one space at end of annotation text, after last paren. + 2007-11-24 Michael Albinus * ido.el (ido-file-name-all-completions-1): Check for fboundp of diff --git a/lisp/vc-git.el b/lisp/vc-git.el index 5652f386f7f..1d0297209b5 100644 --- a/lisp/vc-git.el +++ b/lisp/vc-git.el @@ -359,7 +359,7 @@ or BRANCH^ (where \"^\" can be repeated)." (vc-git-command buf 0 name "blame" (if rev (concat "-r" rev))))) (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) + (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 (apply #'encode-time (mapcar (lambda (match) (string-to-number (match-string match))) -- 2.39.2