mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(bs-cycle-next, bs-cycle-previous): Fix handling of

Browse Source 
bs-cycle-configuration-name.  From Juanma Barranquero
<lektu@uol.com.br>.
This commit is contained in:
Gerd Moellmann 2001-03-21 14:03:30 +00:00
parent 94cae5a851
commit 038e04cbd2
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/bs.el
View File

@ -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