* vc-bzr.el (vc-bzr-annotate-command): Show author in annotation.

Handle empty author field (Bug#4144).  Suggested by Óscar Fuentes.
(vc-bzr-annotate-time, vc-bzr-annotate-extract-revision-at-line):
Update annotation regexp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a8c4a0ceec90bf2539d76fc8a478691bb6fe18a7..b25d09dab058452bb1822503bcd80cb813fcdd3e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -10,6 +10,11 @@
 
 2009-12-06  Chong Yidong  <cyd@stupidchicken.com>
 
+       * vc-bzr.el (vc-bzr-annotate-command): Show author in annotation.
+       Handle empty author field (Bug#4144).  Suggested by Óscar Fuentes.
+       (vc-bzr-annotate-time, vc-bzr-annotate-extract-revision-at-line):
+       Update annotation regexp.
+
        * simple.el (beginning-of-visual-line): Constrain to field
        boundaries (Bug#5106).
 

diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index eb021f5e3dba0196d5a3b7f525dd89a0d591ff96..233cdb171eeaea106cdc27dfa66946af09aa0032 100644 (file)
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -571,10 +571,14 @@ property containing author and date information."
                     (tag (gethash key table))
                     (inhibit-read-only t))
                (setq string (substring string (match-end 0)))
-        (unless tag
-          (setq tag (propertize rev 'help-echo (concat "Author: " author
-                                                       ", date: " date)
-                                'mouse-face 'highlight))
+              (unless tag
+                (setq tag
+                      (propertize
+                       (concat rev " " (substring author 0 7))
+                       'help-echo (format "Revision: %d, author: %s, date: %s"
+                                          (string-to-number rev)
+                                          author date)
+                       'mouse-face 'highlight))
                  (puthash key tag table))
                (goto-char (process-mark proc))
                (insert tag line)
@@ -584,7 +588,7 @@ property containing author and date information."
 (declare-function vc-annotate-convert-time "vc-annotate" (time))
 
 (defun vc-bzr-annotate-time ()
-  (when (re-search-forward "^ *[0-9.]+ +|" nil t)
+  (when (re-search-forward "^ *[0-9.]+ +[^\n ]* +|" nil t)
     (let ((prop (get-text-property (line-beginning-position) 'help-echo)))
       (string-match "[0-9]+\\'" prop)
       (let ((str (match-string-no-properties 0 prop)))
@@ -599,7 +603,7 @@ property containing author and date information."
 Return nil if current line isn't annotated."
   (save-excursion
     (beginning-of-line)
-    (if (looking-at " *\\([0-9.]+\\) *| ")
+    (if (looking-at "^ *\\([0-9.]+\\) +[^\n ]* +|")
         (match-string-no-properties 1))))
 
 (defun vc-bzr-command-discarding-stderr (command &rest args)