[Emacs-diffs] emacs/lisp ChangeLog buff-menu.el

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/11/06 19:15:29

Modified files:
        lisp           : ChangeLog buff-menu.el 

Log message:
        * buff-menu.el (Buffer-menu-buffer+size): Use display property to
        align size column (Bug#4839).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16574&r2=1.16575
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/buff-menu.el?cvsroot=emacs&r1=1.129&r2=1.130

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16574
retrieving revision 1.16575
diff -u -b -r1.16574 -r1.16575
--- ChangeLog   6 Nov 2009 19:12:55 -0000       1.16574
+++ ChangeLog   6 Nov 2009 19:15:25 -0000       1.16575
@@ -1,5 +1,8 @@
 2009-11-06  Chong Yidong  <address@hidden>
 
+       * buff-menu.el (Buffer-menu-buffer+size): Use display property to
+       align size column (Bug#4839).
+
        * emacs-lisp/autoload.el (autoload-rubric): Always issue a provide
        statement.
 

Index: buff-menu.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/buff-menu.el,v
retrieving revision 1.129
retrieving revision 1.130
diff -u -b -r1.129 -r1.130
--- buff-menu.el        3 Nov 2009 07:28:33 -0000       1.129
+++ buff-menu.el        6 Nov 2009 19:15:29 -0000       1.130
@@ -678,12 +678,13 @@
     (setq name (copy-sequence name)))
   (add-text-properties 0 (length name) name-props name)
   (add-text-properties 0 (length size) size-props size)
+  (let ((name+space-width (- Buffer-menu-buffer+size-width
+                            (string-width size))))
   (concat name
-         (make-string (- Buffer-menu-buffer+size-width
-                         (string-width name)
-                         (string-width size))
+           (propertize (make-string (- name+space-width (string-width name))
                       ?\s)
-         size))
+                       'display `(space :align-to ,(+ 4 name+space-width)))
+           size)))
 
 (defun Buffer-menu-sort (column)
   "Sort the buffer menu by COLUMN."