38 |
|
|
39 |
(defvar electric-buffer-menu-mode-map nil) |
(defvar electric-buffer-menu-mode-map nil) |
40 |
|
|
41 |
|
(defvar electric-buffer-menu-mode-hook nil |
42 |
|
"Normal hook run by `electric-buffer-list'.") |
43 |
|
|
44 |
;;;###autoload |
;;;###autoload |
45 |
(defun electric-buffer-list (arg) |
(defun electric-buffer-list (arg) |
46 |
"Pops up a buffer describing the set of Emacs buffers. |
"Pop up a buffer describing the set of Emacs buffers. |
47 |
Vaguely like ITS lunar select buffer; combining typeoutoid buffer |
Vaguely like ITS lunar select buffer; combining typeoutoid buffer |
48 |
listing with menuoid buffer selection. |
listing with menuoid buffer selection. |
49 |
|
|
53 |
|
|
54 |
To exit and select a new buffer, type a space when the cursor is on |
To exit and select a new buffer, type a space when the cursor is on |
55 |
the appropriate line of the buffer-list window. Other commands are |
the appropriate line of the buffer-list window. Other commands are |
56 |
much like those of buffer-menu-mode. |
much like those of `Buffer-menu-mode'. |
57 |
|
|
58 |
Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil. |
Run hooks in `electric-buffer-menu-mode-hook' on entry. |
59 |
|
|
60 |
\\{electric-buffer-menu-mode-map}" |
\\{electric-buffer-menu-mode-map}" |
61 |
(interactive "P") |
(interactive "P") |
147 |
|
|
148 |
\\{electric-buffer-menu-mode-map} |
\\{electric-buffer-menu-mode-map} |
149 |
|
|
150 |
Entry to this mode via command electric-buffer-list calls the value of |
Entry to this mode via command `electric-buffer-list' calls the value of |
151 |
electric-buffer-menu-mode-hook if it is non-nil." |
`electric-buffer-menu-mode-hook'." |
152 |
(kill-all-local-variables) |
(kill-all-local-variables) |
153 |
(use-local-map electric-buffer-menu-mode-map) |
(use-local-map electric-buffer-menu-mode-map) |
154 |
(setq mode-name "Electric Buffer Menu") |
(setq mode-name "Electric Buffer Menu") |
226 |
|
|
227 |
(defun Electric-buffer-menu-select () |
(defun Electric-buffer-menu-select () |
228 |
"Leave Electric Buffer Menu, selecting buffers and executing changes. |
"Leave Electric Buffer Menu, selecting buffers and executing changes. |
229 |
Saves buffers marked \"S\". Deletes buffers marked \"K\". |
Save buffers marked \"S\". Delete buffers marked \"K\". |
230 |
Selects buffer at point and displays buffers marked \">\" in other windows." |
Select buffer at point and display buffers marked \">\" in other windows." |
231 |
(interactive) |
(interactive) |
232 |
(throw 'electric-buffer-menu-select (point))) |
(throw 'electric-buffer-menu-select (point))) |
233 |
|
|
240 |
|
|
241 |
(defun Electric-buffer-menu-quit () |
(defun Electric-buffer-menu-quit () |
242 |
"Leave Electric Buffer Menu, restoring previous window configuration. |
"Leave Electric Buffer Menu, restoring previous window configuration. |
243 |
Does not execute select, save, or delete commands." |
Skip execution of select, save, and delete commands." |
244 |
(interactive) |
(interactive) |
245 |
(throw 'electric-buffer-menu-select nil)) |
(throw 'electric-buffer-menu-select nil)) |
246 |
|
|
261 |
|
|
262 |
(defun Electric-buffer-menu-mode-view-buffer () |
(defun Electric-buffer-menu-mode-view-buffer () |
263 |
"View buffer on current line in Electric Buffer Menu. |
"View buffer on current line in Electric Buffer Menu. |
264 |
Returns to Electric Buffer Menu when done." |
Return to Electric Buffer Menu when done." |
265 |
(interactive) |
(interactive) |
266 |
(let ((bufnam (Buffer-menu-buffer nil))) |
(let ((bufnam (Buffer-menu-buffer nil))) |
267 |
(if bufnam |
(if bufnam |