# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1054717222 0
# Node ID 77bc7a2e6beff991b7580ec6a8235c31c5d66983
# Parent  4c41fd813bd1094390ff8d260ecab85b481b7f41
(list-buffers-noselect): Use window-inside-edges
to compute the number of offset spaces.
(list-buffers-noselect): Use Buffer-menu-buffer+size to
indent the dashes properly.  Put some in fixed-pitch.

diff -r 4c41fd813bd1 -r 77bc7a2e6bef lisp/buff-menu.el
--- a/lisp/buff-menu.el	Tue Jun 03 23:35:20 2003 +0000
+++ b/lisp/buff-menu.el	Wed Jun 04 09:00:22 2003 +0000
@@ -563,14 +563,8 @@
 	 list desired-point name file mode)
     (when Buffer-menu-use-header-line
       (let ((spaces
-	     ;; FIXME: This is using the settings of the current frame rather
-	     ;; than the frame into which the buffer will be displayed.
-	     (/ (+ 0.0 (or (frame-parameter nil 'left-fringe) 0)
-		   (or (if (eq (frame-parameter nil 'vertical-scroll-bars)
-			       'left)
-			   (frame-parameter nil 'scroll-bar-width))
-		       0))
-		(frame-char-width)))
+	     (- (car (window-inside-edges))
+		(car (window-edges))))
 	    (pos 0))
 	;; Turn spaces in the header into stretch specs so they work
 	;; regardless of the header-line face.
@@ -590,9 +584,9 @@
       (erase-buffer)
       (setq standard-output (current-buffer))
       (unless Buffer-menu-use-header-line
-	(insert header "--- ------")
-	(indent-to Buffer-menu-buffer+size-width)
-	(insert "----  ----" mode-end "----\n")
+	(insert header (propertize "---" 'face 'fixed-pitch) " ")
+	(insert (Buffer-menu-buffer+size "------" "----"))
+	(insert "  ----" mode-end "----\n")
 	(put-text-property 1 (point) 'intangible t))
       (setq list
 	    (delq t