(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.

1 files changed, 7 insertions, 1 deletions

diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index 18142e6f837..0b5ad730fea 100644
--- 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