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

[Miles Bader]

Index: emacs/lisp/buff-menu.el
diff -c emacs/lisp/buff-menu.el:1.54.4.1 emacs/lisp/buff-menu.el:1.54.4.2
*** emacs/lisp/buff-menu.el:1.54.4.1    Fri Apr  4 01:20:00 2003
--- emacs/lisp/buff-menu.el     Tue Oct 14 19:50:49 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
***************
*** 670,673 ****
--- 664,668 ----
           (goto-char desired-point))
        (current-buffer))))
  
+ ;;; arch-tag: e7dfcfc9-6cb2-46e4-bf55-8ef1936d83c6
  ;;; buff-menu.el ends here