Mercurial > emacs
comparison lisp/iswitchb.el @ 27497:7f8974c3b6f8
(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.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Sat, 29 Jan 2000 12:14:55 +0000 |
parents | 03d8424273d3 |
children | 79fd94833204 |
comparison
equal
deleted
inserted
replaced
27496:3f01684c98ab | 27497:7f8974c3b6f8 |
---|---|
290 :type 'hook | 290 :type 'hook |
291 :group 'iswitchb) | 291 :group 'iswitchb) |
292 | 292 |
293 (defcustom iswitchb-use-fonts t | 293 (defcustom iswitchb-use-fonts t |
294 "*Non-nil means use font-lock fonts for showing first match." | 294 "*Non-nil means use font-lock fonts for showing first match." |
295 :type 'boolean | |
296 :group 'iswitchb) | |
297 | |
298 (defcustom iswitchb-use-frame-buffer-list nil | |
299 "*Non-nil means use the currently selected frame's buffer list." | |
295 :type 'boolean | 300 :type 'boolean |
296 :group 'iswitchb) | 301 :group 'iswitchb) |
297 | 302 |
298 (defcustom iswitchb-make-buflist-hook nil | 303 (defcustom iswitchb-make-buflist-hook nil |
299 "*Hook to run when list of matching buffers is created." | 304 "*Hook to run when list of matching buffers is created." |
675 (if (not | 680 (if (not |
676 (or | 681 (or |
677 (iswitchb-ignore-buffername-p b-name) | 682 (iswitchb-ignore-buffername-p b-name) |
678 (memq b-name iswitchb-current-buffers))) | 683 (memq b-name iswitchb-current-buffers))) |
679 b-name))) | 684 b-name))) |
680 (buffer-list))))) | 685 (buffer-list (and iswitchb-use-frame-buffer-list |
686 (selected-frame))))))) | |
681 (nconc iswitchb-temp-buflist iswitchb-current-buffers) | 687 (nconc iswitchb-temp-buflist iswitchb-current-buffers) |
682 (run-hooks 'iswitchb-make-buflist-hook) | 688 (run-hooks 'iswitchb-make-buflist-hook) |
683 ;; Should this be after the hooks, or should the hooks be the | 689 ;; Should this be after the hooks, or should the hooks be the |
684 ;; final thing to be run? | 690 ;; final thing to be run? |
685 (if default | 691 (if default |