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