Commit ceba0dac authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(iswitchb-make-buflist): When nconc'ing lists, don't

discard the result.
(iswitchb-to-end): Likewise.
parent 9b0630e5
2001-01-25 Gerd Moellmann <gerd@gnu.org>
* iswitchb.el (iswitchb-make-buflist): When nconc'ing lists, don't
discard the result.
(iswitchb-to-end): Likewise.
2001-01-25 Sam Steingold <sds@gnu.org>
 
* vc-cvs.el (vc-cvs-mode-line-string): Doc & comment fix.
......@@ -38,8 +44,8 @@
(dired-sort-toggle): Use `replace-regexps-in-string'
instead of `dired-replace-in-string'.
 
* dired-aux.el (dired-shell-stuff-it, dired-rename-subdir,
dired-rename-subdir-2, dired-insert-subdir-doinsert): Ditto.
* dired-aux.el (dired-shell-stuff-it, dired-rename-subdir)
(dired-rename-subdir-2, dired-insert-subdir-doinsert): Ditto.
 
* gs.el (gs-replace-in-string): Removed.
(gs-options): Use `replace-regexps-in-string'
......
;;; iswitchb.el --- switch between buffers using substrings
;; Copyright (C) 1996, 1997, 2000 Free Software Foundation, Inc.
;; Copyright (C) 1996, 1997, 2000, 2001 Free Software Foundation, Inc.
;; Author: Stephen Eglen <stephen@anc.ed.ac.uk>
;; Maintainer: Stephen Eglen <stephen@anc.ed.ac.uk>
......@@ -741,21 +741,22 @@ in this list. If DEFAULT is non-nil, and corresponds to an existing buffer,
it is put to the start of the list."
(setq iswitchb-buflist
(let* ((iswitchb-current-buffers (iswitchb-get-buffers-in-frames))
(iswitchb-temp-buflist
(delq nil
(mapcar
(lambda (x)
(let ((b-name (buffer-name x)))
(if (not
(or
(iswitchb-ignore-buffername-p b-name)
(memq b-name iswitchb-current-buffers)))
b-name)))
(buffer-list (and iswitchb-use-frame-buffer-list
(selected-frame)))))))
(nconc iswitchb-temp-buflist iswitchb-current-buffers)
(iswitchb-temp-buflist
(delq nil
(mapcar
(lambda (x)
(let ((b-name (buffer-name x)))
(if (not
(or
(iswitchb-ignore-buffername-p b-name)
(memq b-name iswitchb-current-buffers)))
b-name)))
(buffer-list (and iswitchb-use-frame-buffer-list
(selected-frame)))))))
(setq iswitchb-temp-buflist
(nconc iswitchb-temp-buflist iswitchb-current-buffers))
(run-hooks 'iswitchb-make-buflist-hook)
;; Should this be after the hooks, or should the hooks be the
;; Should this be after the hooks, or should the hooks be the
;; final thing to be run?
(if default
(progn
......@@ -771,7 +772,7 @@ it is put to the start of the list."
(lambda (elem)
(setq iswitchb-temp-buflist (delq elem iswitchb-temp-buflist)))
lst)
(nconc iswitchb-temp-buflist lst))
(setq iswitchb-temp-buflist (nconc iswitchb-temp-buflist lst)))
(defun iswitchb-get-buffers-in-frames (&optional current)
"Return the list of buffers that are visible in the current frame.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment