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

discard the result.
(iswitchb-to-end): Likewise.

2 files changed, 25 insertions, 18 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65220e45a21..d2ba882f54a 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+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'
diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index 65b01948702..4e329f8c4a9 100644
--- a/lisp/iswitchb.el
+++ b/lisp/iswitchb.el
@@ -1,6 +1,6 @@
 ;;; 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.