diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-03-21 14:03:30 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-03-21 14:03:30 +0000 |
| commit | 038e04cbd29d974ad6e189557157951338816b3e (patch) | |
| tree | 0bb47182ea1065ccef7a012f73f95ac2fa876603 /lisp/bs.el | |
| parent | 94cae5a851f0cac47718526e98ed46c1ff40c94b (diff) | |
| download | emacs-038e04cbd29d974ad6e189557157951338816b3e.tar.gz | |
(bs-cycle-next, bs-cycle-previous): Fix handling of
bs-cycle-configuration-name. From Juanma Barranquero
<lektu@uol.com.br>.
Diffstat (limited to 'lisp/bs.el')
| -rw-r--r-- | lisp/bs.el | 12 |
1 files changed, 5 insertions, 7 deletions
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 <Olaf.Sylvester@netsurf.de> ;; Maintainer: Olaf Sylvester <Olaf.Sylvester@netsurf.de> ;; 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 |