* vc-bzr.el (vc-bzr-annotate-command): Handle the case where the

author field is too short.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 605f395ab43285b0a64f0689b3855aeafdb6901b..9d17dff0d728d923a5f733e84d9bf0853de15925 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-12-06  Óscar Fuentes  <ofv@wanadoo.es>
+
+       * vc-bzr.el (vc-bzr-annotate-command): Handle the case where the
+       author field is too short.
+
 2009-12-06  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc-git.el (vc-git-print-log): Handle a limit argument.  Display

diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index 233cdb171eeaea106cdc27dfa66946af09aa0032..70989ee56e7ab167ebff01ece3595f00bd35b5e6 100644 (file)
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -574,7 +574,8 @@ property containing author and date information."
               (unless tag
                 (setq tag
                       (propertize
-                       (concat rev " " (substring author 0 7))
+                       (concat rev " " (substring (concat author "       ")
+                                                  0 7))
                        'help-echo (format "Revision: %d, author: %s, date: %s"
                                           (string-to-number rev)
                                           author date)