(vc-git-annotate-time): Handle optional field FILENAME.

Also, match one space at end of annotation text, after last paren.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0873acd70a205f0f351c6d4469e28887e8add343..997cc9d5ec4cc65df61b8c52f1d4e7861758cf2c 100644 (file)
--- 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  <michael.albinus@gmx.de>
 
        * 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 5652f386f7f1e152d19b1971f70686482d135f6d..1d0297209b51f5ed022cc076b3b01ec5823e9475 100644 (file)
--- 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)))