* vc-bzr.el (vc-bzr-annotate-command): More elegant form for last

change.  Suggested by David Kastrup.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f633d7a12757a19022a5bd4ab2db01c1287a9833..75f5a9bbac060671d9cf47f8da84a0ea375944c2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -6,6 +6,9 @@
 
 2009-12-07  Chong Yidong  <cyd@stupidchicken.com>
 
+       * vc-bzr.el (vc-bzr-annotate-command): More elegant form for last
+       change.  Suggested by David Kastrup.
+
        * simple.el (compose-mail): Check for incompatibilities and warn.
        (compose-mail-user-agent-warnings): New option.
 

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