# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 985183410 0
# Node ID 11256092b610b56aaec09c43dc21ed9824cdb253
# Parent  28d23bbdd2cfd2d178e44afdcd2baaaa4161c3ac
(bs-cycle-next, bs-cycle-previous): Fix handling of
bs-cycle-configuration-name.  From Juanma Barranquero
<lektu@uol.com.br>.

diff -r 28d23bbdd2cf -r 11256092b610 lisp/bs.el
--- a/lisp/bs.el	Wed Mar 21 13:35:54 2001 +0000
+++ b/lisp/bs.el	Wed Mar 21 14:03:30 2001 +0000
@@ -1,6 +1,6 @@
 ;;; bs.el --- menu for selecting and displaying buffers
 
-;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
 ;; Author: Olaf Sylvester <Olaf.Sylvester@netsurf.de>
 ;; Maintainer: Olaf Sylvester <Olaf.Sylvester@netsurf.de>
 ;; Keywords: convenience
@@ -1230,9 +1230,8 @@
 	(bs-must-show-regexp   bs-must-show-regexp)
 	(bs-dont-show-function bs-dont-show-function)
 	(bs-must-show-function bs-must-show-function)
-	(bs--show-all          bs--show-all))
-    (if bs-cycle-configuration-name
-	(bs-set-configuration bs-cycle-configuration-name))
+	(bs--show-all          nil))
+    (bs-set-configuration (or bs-cycle-configuration-name bs-default-configuration))
     (let ((bs-buffer-sort-function nil)
 	  (bs--current-sort-function nil))
       (let* ((tupel (bs-next-buffer (if (or (eq last-command
@@ -1262,9 +1261,8 @@
 	(bs-must-show-regexp   bs-must-show-regexp)
 	(bs-dont-show-function bs-dont-show-function)
 	(bs-must-show-function bs-must-show-function)
-	(bs--show-all          bs--show-all))
-    (if bs-cycle-configuration-name
-	(bs-set-configuration bs-cycle-configuration-name))
+	(bs--show-all          nil))
+    (bs-set-configuration (or bs-cycle-configuration-name bs-default-configuration))
     (let ((bs-buffer-sort-function nil)
 	  (bs--current-sort-function nil))
       (let* ((tupel (bs-previous-buffer (if (or (eq last-command