[Emacs-diffs] /srv/bzr/emacs/trunk r104731: lisp/bs.el (bs-cycle-next): Pass current buffer to `bury-buffer'.

[Juanma Barranquero]

------------------------------------------------------------
revno: 104731
fixes bug(s): http://debbugs.gnu.org/8911
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sun 2011-06-26 13:23:23 +0200
message:
  lisp/bs.el (bs-cycle-next): Pass current buffer to `bury-buffer'.
modified:
  lisp/ChangeLog
  lisp/bs.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-06-26 08:43:52 +0000
+++ b/lisp/ChangeLog    2011-06-26 11:23:23 +0000
@@ -1,3 +1,8 @@
+2011-06-26  Juanma Barranquero  <address@hidden>
+
+       * bs.el (bs-cycle-next): Pass current buffer to `bury-buffer' to
+       avoid deleting the current window in some cases (bug#8911).
+
 2011-06-26  Andreas Schwab  <address@hidden>
 
        * emacs-lisp/smie.el (smie-bnf->prec2): Fix last change.

=== modified file 'lisp/bs.el'
--- a/lisp/bs.el        2011-06-02 11:24:12 +0000
+++ b/lisp/bs.el        2011-06-26 11:23:23 +0000
@@ -1214,8 +1214,8 @@
             (cycle-list (cdr tupel)))
        (unless (window-dedicated-p (selected-window))
          ;; We don't want the frame iconified if the only window in the frame
-         ;; happens to be dedicated; let's get the error from switch-to-buffer
-         (bury-buffer))
+         ;; happens to be dedicated
+         (bury-buffer (current-buffer)))
        (switch-to-buffer next)
        (setq bs--cycle-list (append (cdr cycle-list)
                                     (list (car cycle-list))))