summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2009-12-07 16:18:42 +0000
committerChong Yidong <cyd@stupidchicken.com>2009-12-07 16:18:42 +0000
commit7dcff5dbd54f197c68c57a7d24e18b073442dc34 (patch)
tree546a9d96a04464a2c3bad26d0d5d374c609cdc8a
parent79dd273cd1a1da00b217333c81aa308294f2d7fb (diff)
downloademacs-7dcff5dbd54f197c68c57a7d24e18b073442dc34.tar.gz
* vc-bzr.el (vc-bzr-annotate-command): More elegant form for last
change. Suggested by David Kastrup.
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/vc-bzr.el3
2 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7bf88a852ac..eeefd6501aa 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)