Re: list-buffers header not aligned case 1

[Richard Stallman]

    When

        Buffer-menu-use-header-line

    is t, the default, the header line appears not to take into account a
    scroll bar on the left, so the column headers are not lined up with
    their columns.

This ought to fix it, if you get the other changes that I installed today.

*** buff-menu.el.~1.61.~        Mon Mar 17 13:59:36 2003
--- buff-menu.el        Tue Jun  3 14:20:08 2003
***************
*** 563,576 ****
         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)))
            (pos 0))
        ;; Turn spaces in the header into stretch specs so they work
        ;; regardless of the header-line face.
--- 563,570 ----
         list desired-point name file mode)
      (when Buffer-menu-use-header-line
        (let ((spaces
!            (- (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.