From: Sam Steingold Date: Thu, 22 Mar 2012 20:49:04 +0000 (-0400) Subject: * lisp/window.el (switch-to-prev-buffer): Revert last patch because the X-Git-Tag: emacs-pretest-24.0.05~71 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e71cebb3c3a3b2f7eb5a28178d9c4763a1a3edb0;p=emacs.git * lisp/window.el (switch-to-prev-buffer): Revert last patch because the bug turned out to be an advertised feature (Elisp manual 28.14). --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f0d01df98af..652c9ad7e44 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-03-22 Sam Steingold + + * window.el (switch-to-prev-buffer): Revert last patch because the + bug turned out to be an advertised feature (Elisp manual 28.14). + 2012-03-22 Glenn Morris * vc/vc-bzr.el (vc-bzr-status-switches): New option. (Bug#6724) diff --git a/lisp/window.el b/lisp/window.el index 894d113cdc7..cb7368fc7ff 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -2602,12 +2602,14 @@ shall not be switched to in future invocations of this command." (not (eq new-buffer old-buffer)) (or bury-or-kill (not (memq new-buffer next-buffers)))) - (if (get-buffer-window new-buffer) - ;; Try to avoid showing a buffer visible in some other window. - (setq visible new-buffer) - (set-window-buffer-start-and-point - window new-buffer (nth 1 entry) (nth 2 entry)) - (throw 'found t)))) + ;; _DO_ show visible buffers as advertized in Elisp manual 28.14 + ;; on `switch-to-prev-buffer' & `switch-to-next-buffer' + ;;(if (get-buffer-window new-buffer) + ;; ;; Try to avoid showing a buffer visible in some other window. + ;; (setq visible new-buffer) + (set-window-buffer-start-and-point + window new-buffer (nth 1 entry) (nth 2 entry)) + (throw 'found t))) ;; Scan reverted buffer list of WINDOW's frame next, skipping ;; entries of next buffers. Note that when we bury or kill a ;; buffer we don't reverse the global buffer list to avoid showing