emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] /srv/bzr/emacs/trunk r107661: * lisp/window.el (switch-to-


From: Sam Steingold
Subject: [Emacs-diffs] /srv/bzr/emacs/trunk r107661: * lisp/window.el (switch-to-prev-buffer): Revert last patch because the
Date: Thu, 22 Mar 2012 16:49:04 -0400
User-agent: Bazaar (2.3.1)

------------------------------------------------------------
revno: 107661
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Thu 2012-03-22 16:49:04 -0400
message:
  * lisp/window.el (switch-to-prev-buffer): Revert last patch because the
  bug turned out to be an advertised feature (Elisp manual 28.14).
modified:
  lisp/ChangeLog
  lisp/window.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-03-22 19:06:03 +0000
+++ b/lisp/ChangeLog    2012-03-22 20:49:04 +0000
@@ -1,3 +1,8 @@
+2012-03-22  Sam Steingold  <address@hidden>
+
+       * 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  <address@hidden>
 
        * vc/vc-bzr.el (vc-bzr-status-switches): New option.  (Bug#6724)

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2012-03-21 16:01:18 +0000
+++ b/lisp/window.el    2012-03-22 20:49:04 +0000
@@ -2602,12 +2602,14 @@
                   (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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]