Mercurial > emacs
changeset 36925:11256092b610
(bs-cycle-next, bs-cycle-previous): Fix handling of
bs-cycle-configuration-name. From Juanma Barranquero
<lektu@uol.com.br>.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Wed, 21 Mar 2001 14:03:30 +0000 |
| parents | 28d23bbdd2cf |
| children | bac2be965bf4 |
| files | lisp/bs.el |
| diffstat | 1 files changed, 5 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- 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