# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 787139305 0
# Node ID 33d8e8e8d46b86c8b89e8d58e7b2b9c40b28df4c
# Parent  7151108ed6a0ba653753e78391e2ff2676200f18
(list_buffers_1): Right-align the size values.

diff -r 7151108ed6a0 -r 33d8e8e8d46b src/buffer.c
--- a/src/buffer.c	Sun Dec 11 09:16:23 1994 +0000
+++ b/src/buffer.c	Sun Dec 11 09:48:25 1994 +0000
@@ -1142,8 +1142,8 @@
   desired_point = Qnil;
   other_file_symbol = intern ("list-buffers-directory");
 
-  XSETFASTINT (col1, 19);
-  XSETFASTINT (col2, 26);
+  XSETFASTINT (col1, 17);
+  XSETFASTINT (col2, 28);
   XSETFASTINT (col3, 40);
   XSETFASTINT (minspace, 1);
 
@@ -1152,8 +1152,8 @@
   current_buffer->read_only = Qnil;
 
   write_string ("\
- MR Buffer         Size   Mode          File\n\
- -- ------         ----   ----          ----\n", -1);
+ MR Buffer           Size Mode          File\n\
+ -- ------           ---- ----          ----\n", -1);
 
   for (tail = Vbuffer_alist; !NILP (tail); tail = Fcdr (tail))
     {
@@ -1177,9 +1177,27 @@
       write_string ((b != current_buffer && NILP (b->read_only))
 		    ? "  " : "% ", -1);
       Fprinc (b->name, Qnil);
-      Findent_to (col1, make_number (2));
-      XSETFASTINT (tem, BUF_Z (b) - BUF_BEG (b));
-      Fprin1 (tem, Qnil);
+      tem = Findent_to (col1, make_number (2));
+      {
+	char sizebuf[9];
+	int i;
+	char *p;
+
+	sprintf (sizebuf, "%8d", BUF_Z (b) - BUF_BEG (b));
+	/* Here's how many extra columns the buffer name used.  */
+	i = XFASTINT (tem) - XFASTINT (col1);
+	/* Skip that many spaces in the size, if it has that many,
+	   to keep the size values right-aligned if possible.  */
+	p = sizebuf;
+	while (i > 0)
+	  {
+	    if (*p == ' ')
+	      p++;
+	    i--;
+	  }
+
+	write_string (p, -1);
+      }
       Findent_to (col2, minspace);
       Fprinc (b->mode_name, Qnil);
       Findent_to (col3, minspace);