# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1260202722 0
# Node ID 97d3776729525664b4179025c4078f2b5614aba8
# Parent  5354cbc99ef18910d5f716f79911c511a8000265
* vc-bzr.el (vc-bzr-annotate-command): More elegant form for last
change.  Suggested by David Kastrup.

diff -r 5354cbc99ef1 -r 97d377672952 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Dec 07 16:14:23 2009 +0000
+++ b/lisp/ChangeLog	Mon Dec 07 16:18:42 2009 +0000
@@ -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 -r 5354cbc99ef1 -r 97d377672952 lisp/vc-bzr.el
--- a/lisp/vc-bzr.el	Mon Dec 07 16:14:23 2009 +0000
+++ b/lisp/vc-bzr.el	Mon Dec 07 16:18:42 2009 +0000
@@ -579,8 +579,7 @@
 	       (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)