(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 --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index 34423a836f17bba5459a517b02dfaf08349982c6..e2a263e33adc9bdf0cb54a01157151a5b366e437 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -563,14 +563,8 @@ For more information, see the function `buffer-menu'."
         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 @@ For more information, see the function `buffer-menu'."
       (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