# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 949148095 0
# Node ID 7f8974c3b6f86398219bbb9c94095c99caf0de5a
# Parent  3f01684c98abc5cc4f4a67e4bddcb838f06c6ccc
(iswitchb-use-frame-buffer-list): New configuration
variable. If non-nil, order the buffer list according to the
currently selected frame.
(iswitchb-make-buflist): If iswitchb-use-frame-buffer-list is
non-nil, pass the selected frame to function buffer-list.

diff -r 3f01684c98ab -r 7f8974c3b6f8 lisp/iswitchb.el
--- a/lisp/iswitchb.el	Sat Jan 29 12:02:36 2000 +0000
+++ b/lisp/iswitchb.el	Sat Jan 29 12:14:55 2000 +0000
@@ -295,6 +295,11 @@
   :type 'boolean
   :group 'iswitchb)
 
+(defcustom iswitchb-use-frame-buffer-list nil
+  "*Non-nil means use the currently selected frame's buffer list."
+  :type 'boolean
+  :group 'iswitchb)
+
 (defcustom iswitchb-make-buflist-hook  nil
   "*Hook to run when list of matching buffers is created."
   :type 'hook
@@ -677,7 +682,8 @@
 				(iswitchb-ignore-buffername-p b-name)
 				(memq b-name iswitchb-current-buffers)))
 			      b-name)))
-		      (buffer-list)))))
+		      (buffer-list (and iswitchb-use-frame-buffer-list
+					(selected-frame)))))))
 	  (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