cd c:/drews-lisp-20/
diff -c "c:/emacs-21.3.50/lisp/buff-menu.el" "c:/drews-lisp-20/buff-menu-w-fix.el"
*** c:/emacs-21.3.50/lisp/buff-menu.el	Mon Jul 26 09:42:00 2004
--- c:/drews-lisp-20/buff-menu-w-fix.el	Wed Oct 13 22:31:00 2004
***************
*** 640,650 ****
  		     (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.
--- 640,653 ----
  		     (with-current-buffer buffer
  		       (save-window-excursion
  			 (setq name (buffer-name)
! 			       mode (let ((dedicated-p (window-dedicated-p (selected-window))))
!                                       (set-window-dedicated-p (selected-window) nil)
!                                       (set-window-buffer (selected-window) buffer)
!                                       (prog1
!                                           (concat (format-mode-line mode-name)
!                                                   (if mode-line-process
!                                                       (format-mode-line mode-line-process)))
!                                         (set-window-dedicated-p (selected-window) dedicated-p)))
  			       file (buffer-file-name)))
  		       (cond
  			;; Don't mention internal buffers.
***************
*** 693,702 ****
  		(Buffer-menu-buffer+size (nth 2 buffer)
  					 (int-to-string (nth 3 buffer))
  					 `(buffer-name ,(nth 2 buffer)
! 					   buffer ,(car buffer)
! 					   face Buffer-menu-buffer-face
! 					   mouse-face highlight
! 					   help-echo "mouse-2: select this buffer"))
  		"  "
  		(if (> (length (nth 4 buffer)) Buffer-menu-mode-width)
  		    (substring (nth 4 buffer) 0 Buffer-menu-mode-width)
--- 696,705 ----
  		(Buffer-menu-buffer+size (nth 2 buffer)
  					 (int-to-string (nth 3 buffer))
  					 `(buffer-name ,(nth 2 buffer)
!                                                        buffer ,(car buffer)
!                                                        face Buffer-menu-buffer-face
!                                                        mouse-face highlight
!                                                        help-echo "mouse-2: select this buffer"))
  		"  "
  		(if (> (length (nth 4 buffer)) Buffer-menu-mode-width)
  		    (substring (nth 4 buffer) 0 Buffer-menu-mode-width)

Diff finished at Wed Oct 13 22:31:18