89 |
:type 'number |
:type 'number |
90 |
:group 'Buffer-menu) |
:group 'Buffer-menu) |
91 |
|
|
92 |
|
(defcustom Buffer-menu-use-frame-buffer-list t |
93 |
|
"If non-nil, the Buffer Menu uses the selected frame's buffer list. |
94 |
|
Buffers that were never selected in that frame are listed at the end. |
95 |
|
If the value is nil, the Buffer Menu uses the global buffer list. |
96 |
|
This variable matters if the Buffer Menu is sorted by visited order, |
97 |
|
as it is by default." |
98 |
|
:type 'boolean |
99 |
|
:group 'Buffer-menu |
100 |
|
:version "22.1") |
101 |
|
|
102 |
;; This should get updated & resorted when you click on a column heading |
;; This should get updated & resorted when you click on a column heading |
103 |
(defvar Buffer-menu-sort-column nil |
(defvar Buffer-menu-sort-column nil |
104 |
"*2 for sorting by buffer names. 5 for sorting by file names. |
"*2 for sorting by buffer names. 5 for sorting by file names. |
732 |
(if (memq c '(?\n ?\s)) c underline)) |
(if (memq c '(?\n ?\s)) c underline)) |
733 |
header))))) |
header))))) |
734 |
;; Collect info for every buffer we're interested in. |
;; Collect info for every buffer we're interested in. |
735 |
(dolist (buffer (or buffer-list (buffer-list (selected-frame)))) |
(dolist (buffer (or buffer-list |
736 |
|
(buffer-list |
737 |
|
(when Buffer-menu-use-frame-buffer-list |
738 |
|
(selected-frame))))) |
739 |
(with-current-buffer buffer |
(with-current-buffer buffer |
740 |
(let ((name (buffer-name)) |
(let ((name (buffer-name)) |
741 |
(file buffer-file-name)) |
(file buffer-file-name)) |