lisp/bs.el (bs-cycle-next): Pass current buffer to `bury-buffer'.

Fixes: debbugs:8911

lisp/ChangeLog

@@ -1,3 +1,8 @@
+2011-06-26  Juanma Barranquero  <lekktu@gmail.com>
+
+	* 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  <schwab@linux-m68k.org>
 
 	* emacs-lisp/smie.el (smie-bnf->prec2): Fix last change.

lisp/bs.el

@@ -1214,8 +1214,8 @@ by buffer configuration `bs-cycle-configuration-name'."
 	     (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))))