* 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 f0d01df98af7785d930b793ec46521131e4f21f6..652c9ad7e44f16db6b8159081b65571ea0cf4507 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-22  Sam Steingold  <sds@gnu.org>
+
+       * 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  <rgm@gnu.org>
 
        * vc/vc-bzr.el (vc-bzr-status-switches): New option.  (Bug#6724)

diff --git a/lisp/window.el b/lisp/window.el
index 894d113cdc7920bbe5917701ea38f316d3bb958c..cb7368fc7ff6a5d7c2a600a068e40d3039f5d869 100644 (file)
--- 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