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
commitf82b1493b0806914f2bf73c41166687b16ebf251 (patch)
tree14484ec7b8bb6680325ff4e00f620f3d63a4b1ea
parent97cf55672c7f2cedd6ceaebd3ec5df3757202de2 (diff)
downloademacs-f82b1493b0806914f2bf73c41166687b16ebf251.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 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)