[Emacs-diffs] emacs/lisp ChangeLog vc-bzr.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/12/07 16:18:45

Modified files:
        lisp           : ChangeLog vc-bzr.el 

Log message:
        * vc-bzr.el (vc-bzr-annotate-command): More elegant form for last
        change.  Suggested by David Kastrup.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16857&r2=1.16858
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/vc-bzr.el?cvsroot=emacs&r1=1.92&r2=1.93

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16857
retrieving revision 1.16858
diff -u -b -r1.16857 -r1.16858
--- ChangeLog   7 Dec 2009 16:12:47 -0000       1.16857
+++ ChangeLog   7 Dec 2009 16:18:42 -0000       1.16858
@@ -6,6 +6,9 @@
 
 2009-12-07  Chong Yidong  <address@hidden>
 
+       * 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.
 

Index: vc-bzr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-bzr.el,v
retrieving revision 1.92
retrieving revision 1.93
diff -u -b -r1.92 -r1.93
--- vc-bzr.el   7 Dec 2009 09:02:15 -0000       1.92
+++ vc-bzr.el   7 Dec 2009 16:18:45 -0000       1.93
@@ -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)