(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 --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index 18142e6f837c570b0d4b02ab5596f8e6fc40a154..0b5ad730fea7e6b1c10324e9a3c97fef571fdd39 100644 (file)
--- a/lisp/iswitchb.el
+++ b/lisp/iswitchb.el
@@ -295,6 +295,11 @@ See also `iswitchb-newbuffer'."
   :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 @@ it is put to the start of the list."
                                (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