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

[Richard M. Stallman]

Index: emacs/lisp/buff-menu.el
diff -c emacs/lisp/buff-menu.el:1.61 emacs/lisp/buff-menu.el:1.62
*** emacs/lisp/buff-menu.el:1.61        Mon Mar 17 13:12:42 2003
--- emacs/lisp/buff-menu.el     Wed Jun  4 05:00:22 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.
***************
*** 590,598 ****
        (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")
        (put-text-property 1 (point) 'intangible t))
        (setq list
            (delq t
--- 584,592 ----
        (erase-buffer)
        (setq standard-output (current-buffer))
        (unless Buffer-menu-use-header-line
!       (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