[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.4 emacs/lisp/buff-menu.el:1.54.4.5
*** emacs/lisp/buff-menu.el:1.54.4.4    Sat Apr 10 06:15:00 2004
--- emacs/lisp/buff-menu.el     Fri Jul 23 04:42:20 2004
***************
*** 613,619 ****
                         "  "
                         (Buffer-menu-make-sort-button "Mode" 4) mode-end
                         (Buffer-menu-make-sort-button "File" 5) "\n"))
!        list desired-point name file)
      (when Buffer-menu-use-header-line
        (let ((pos 0))
        ;; Turn spaces in the header into stretch specs so they work
--- 613,619 ----
                         "  "
                         (Buffer-menu-make-sort-button "Mode" 4) mode-end
                         (Buffer-menu-make-sort-button "File" 5) "\n"))
!        list desired-point name mode file)
      (when Buffer-menu-use-header-line
        (let ((pos 0))
        ;; Turn spaces in the header into stretch specs so they work
***************
*** 638,645 ****
                  (mapcar
                   (lambda (buffer)
                     (with-current-buffer buffer
!                      (setq name (buffer-name)
!                            file (buffer-file-name))
                       (cond
                        ;; Don't mention internal buffers.
                        ((and (string= (substring name 0 1) " ") (null file)))
--- 638,651 ----
                  (mapcar
                   (lambda (buffer)
                     (with-current-buffer buffer
!                      (save-window-excursion
!                        (setq name (buffer-name)
!                              mode (progn
!                                     (set-window-buffer (selected-window) 
buffer)
!                                     (concat (format-mode-line mode-name)
!                                             (if mode-line-process
!                                                 (format-mode-line 
mode-line-process))))
!                              file (buffer-file-name)))
                       (cond
                        ;; Don't mention internal buffers.
                        ((and (string= (substring name 0 1) " ") (null file)))
***************
*** 665,671 ****
                                           ?% ? )
                                       ;; Identify modified buffers.
                                       (if (buffer-modified-p) ?* ? ))
!                              name (buffer-size) mode-name file)))))
                   (buffer-list))))
        (dolist (buffer
               (if Buffer-menu-sort-column
--- 671,677 ----
                                           ?% ? )
                                       ;; Identify modified buffers.
                                       (if (buffer-modified-p) ?* ? ))
!                              name (buffer-size) mode file)))))
                   (buffer-list))))
        (dolist (buffer
               (if Buffer-menu-sort-column