*** lisp/simple.el~	2005-11-30 19:55:19.000000000 +0100
--- lisp/simple.el	2005-12-03 16:29:55.000000000 +0100
***************
*** 62,68 ****
  (defun prev-buffer ()
    "Switch to the previous buffer in cyclic order."
    (interactive)
!   (let ((list (nreverse (buffer-list)))
  	found)
      (while (and (not found) list)
        (let ((buffer (car list)))
--- 62,70 ----
  (defun prev-buffer ()
    "Switch to the previous buffer in cyclic order."
    (interactive)
!   (let ((list (nconc ;; Consider the locally used buffers first.
! 	       (reverse (frame-parameter nil 'buffer-list))
! 	       (nreverse (buffer-list))))
  	found)
      (while (and (not found) list)
        (let ((buffer (car list)))