diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-12-06 00:33:22 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-12-06 00:33:22 +0000 |
| commit | 3ce5f932d93937fcb574c266c7766a902e0393a3 (patch) | |
| tree | 808c6811d07a9c7d281ff519a5132dc0cab8d487 /lisp/buff-menu.el | |
| parent | a9692abf5ba4d704668d3adad3ec5e7fa53bf968 (diff) | |
| download | emacs-3ce5f932d93937fcb574c266c7766a902e0393a3.tar.gz | |
(Buffer-menu-use-frame-buffer-list): New user option.
(list-buffers-noselect): Use it.
Diffstat (limited to 'lisp/buff-menu.el')
| -rw-r--r-- | lisp/buff-menu.el | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 818fc19a4fd..95ead284676 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -89,6 +89,16 @@ :type 'number :group 'Buffer-menu) +(defcustom Buffer-menu-use-frame-buffer-list t + "If non-nil, the Buffer Menu uses the selected frame's buffer list. +Buffers that were never selected in that frame are listed at the end. +If the value is nil, the Buffer Menu uses the global buffer list. +This variable matters if the Buffer Menu is sorted by visited order, +as it is by default." + :type 'boolean + :group 'Buffer-menu + :version "22.1") + ;; This should get updated & resorted when you click on a column heading (defvar Buffer-menu-sort-column nil "*2 for sorting by buffer names. 5 for sorting by file names. @@ -722,7 +732,10 @@ For more information, see the function `buffer-menu'." (if (memq c '(?\n ?\s)) c underline)) header))))) ;; Collect info for every buffer we're interested in. - (dolist (buffer (or buffer-list (buffer-list (selected-frame)))) + (dolist (buffer (or buffer-list + (buffer-list + (when Buffer-menu-use-frame-buffer-list + (selected-frame))))) (with-current-buffer buffer (let ((name (buffer-name)) (file buffer-file-name)) |