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

change.  Suggested by David Kastrup.

2 files changed, 4 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f633d7a1275..75f5a9bbac0 100644
--- 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 ef12f19d2de..13a3eb12b16 100644
--- 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)