From: Gerd Moellmann Date: Wed, 21 Mar 2001 14:03:30 +0000 (+0000) Subject: (bs-cycle-next, bs-cycle-previous): Fix handling of X-Git-Tag: emacs-pretest-21.0.101~219 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=038e04cbd29d974ad6e189557157951338816b3e;p=emacs.git (bs-cycle-next, bs-cycle-previous): Fix handling of bs-cycle-configuration-name. From Juanma Barranquero . --- diff --git a/lisp/bs.el b/lisp/bs.el index 7f1c8b6adac..f17609f556b 100644 --- a/lisp/bs.el +++ b/lisp/bs.el @@ -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 ;; Maintainer: Olaf Sylvester ;; Keywords: convenience @@ -1230,9 +1230,8 @@ by buffer configuration `bs-cycle-configuration-name'." (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 @@ by buffer configuration `bs-cycle-configuration-name'." (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