Mercurial > emacs
comparison lisp/ebuff-menu.el @ 90044:cb7f41387eb3
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-70
Merge from emacs--cvs-trunk--0
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-669
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-678
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-679
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-680
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-688
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-689
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-690
- miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-691
Update from CVS
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-69
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-70
- miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-71
Update from CVS
author | Miles Bader <miles@gnu.org> |
---|---|
date | Fri, 12 Nov 2004 02:53:04 +0000 |
parents | 68c22ea6027c 9ca7944ad9e9 |
children | cb67264d6096 |
comparison
equal
deleted
inserted
replaced
90043:e24e2e78deda | 90044:cb7f41387eb3 |
---|---|
36 ;; this depends on the format of list-buffers (from src/buffer.c) and | 36 ;; this depends on the format of list-buffers (from src/buffer.c) and |
37 ;; on stuff in lisp/buff-menu.el | 37 ;; on stuff in lisp/buff-menu.el |
38 | 38 |
39 (defvar electric-buffer-menu-mode-map nil) | 39 (defvar electric-buffer-menu-mode-map nil) |
40 | 40 |
41 (defvar electric-buffer-menu-mode-hook nil | |
42 "Normal hook run by `electric-buffer-list'.") | |
43 | |
41 ;;;###autoload | 44 ;;;###autoload |
42 (defun electric-buffer-list (arg) | 45 (defun electric-buffer-list (arg) |
43 "Pops up a buffer describing the set of Emacs buffers. | 46 "Pop up a buffer describing the set of Emacs buffers. |
44 Vaguely like ITS lunar select buffer; combining typeoutoid buffer | 47 Vaguely like ITS lunar select buffer; combining typeoutoid buffer |
45 listing with menuoid buffer selection. | 48 listing with menuoid buffer selection. |
46 | 49 |
47 If the very next character typed is a space then the buffer list | 50 If the very next character typed is a space then the buffer list |
48 window disappears. Otherwise, one may move around in the buffer list | 51 window disappears. Otherwise, one may move around in the buffer list |
49 window, marking buffers to be selected, saved or deleted. | 52 window, marking buffers to be selected, saved or deleted. |
50 | 53 |
51 To exit and select a new buffer, type a space when the cursor is on | 54 To exit and select a new buffer, type a space when the cursor is on |
52 the appropriate line of the buffer-list window. Other commands are | 55 the appropriate line of the buffer-list window. Other commands are |
53 much like those of buffer-menu-mode. | 56 much like those of `Buffer-menu-mode'. |
54 | 57 |
55 Calls value of `electric-buffer-menu-mode-hook' on entry if non-nil. | 58 Run hooks in `electric-buffer-menu-mode-hook' on entry. |
56 | 59 |
57 \\{electric-buffer-menu-mode-map}" | 60 \\{electric-buffer-menu-mode-map}" |
58 (interactive "P") | 61 (interactive "P") |
59 (let (select buffer) | 62 (let (select buffer) |
60 (save-window-excursion | 63 (save-window-excursion |
142 \\[Electric-buffer-menu-mode-view-buffer] -- view buffer, returning when done. | 145 \\[Electric-buffer-menu-mode-view-buffer] -- view buffer, returning when done. |
143 \\[Buffer-menu-backup-unmark] -- back up a line and remove marks. | 146 \\[Buffer-menu-backup-unmark] -- back up a line and remove marks. |
144 | 147 |
145 \\{electric-buffer-menu-mode-map} | 148 \\{electric-buffer-menu-mode-map} |
146 | 149 |
147 Entry to this mode via command electric-buffer-list calls the value of | 150 Entry to this mode via command `electric-buffer-list' calls the value of |
148 electric-buffer-menu-mode-hook if it is non-nil." | 151 `electric-buffer-menu-mode-hook'." |
149 (kill-all-local-variables) | 152 (kill-all-local-variables) |
150 (use-local-map electric-buffer-menu-mode-map) | 153 (use-local-map electric-buffer-menu-mode-map) |
151 (setq mode-name "Electric Buffer Menu") | 154 (setq mode-name "Electric Buffer Menu") |
152 (setq mode-line-buffer-identification "Electric Buffer List") | 155 (setq mode-line-buffer-identification "Electric Buffer List") |
153 (make-local-variable 'Helper-return-blurb) | 156 (make-local-variable 'Helper-return-blurb) |
221 (error (Buffer-menu-mode) | 224 (error (Buffer-menu-mode) |
222 (other-buffer)))) | 225 (other-buffer)))) |
223 | 226 |
224 (defun Electric-buffer-menu-select () | 227 (defun Electric-buffer-menu-select () |
225 "Leave Electric Buffer Menu, selecting buffers and executing changes. | 228 "Leave Electric Buffer Menu, selecting buffers and executing changes. |
226 Saves buffers marked \"S\". Deletes buffers marked \"K\". | 229 Save buffers marked \"S\". Delete buffers marked \"K\". |
227 Selects buffer at point and displays buffers marked \">\" in other windows." | 230 Select buffer at point and display buffers marked \">\" in other windows." |
228 (interactive) | 231 (interactive) |
229 (throw 'electric-buffer-menu-select (point))) | 232 (throw 'electric-buffer-menu-select (point))) |
230 | 233 |
231 (defun Electric-buffer-menu-mouse-select (event) | 234 (defun Electric-buffer-menu-mouse-select (event) |
232 (interactive "e") | 235 (interactive "e") |
235 (goto-char (posn-point (event-end event))) | 238 (goto-char (posn-point (event-end event))) |
236 (throw 'electric-buffer-menu-select (point))) | 239 (throw 'electric-buffer-menu-select (point))) |
237 | 240 |
238 (defun Electric-buffer-menu-quit () | 241 (defun Electric-buffer-menu-quit () |
239 "Leave Electric Buffer Menu, restoring previous window configuration. | 242 "Leave Electric Buffer Menu, restoring previous window configuration. |
240 Does not execute select, save, or delete commands." | 243 Skip execution of select, save, and delete commands." |
241 (interactive) | 244 (interactive) |
242 (throw 'electric-buffer-menu-select nil)) | 245 (throw 'electric-buffer-menu-select nil)) |
243 | 246 |
244 (defun Electric-buffer-menu-undefined () | 247 (defun Electric-buffer-menu-undefined () |
245 (interactive) | 248 (interactive) |
256 \\[Helper-help] for help, \\[Helper-describe-bindings] for commands."))) | 259 \\[Helper-help] for help, \\[Helper-describe-bindings] for commands."))) |
257 (sit-for 4)) | 260 (sit-for 4)) |
258 | 261 |
259 (defun Electric-buffer-menu-mode-view-buffer () | 262 (defun Electric-buffer-menu-mode-view-buffer () |
260 "View buffer on current line in Electric Buffer Menu. | 263 "View buffer on current line in Electric Buffer Menu. |
261 Returns to Electric Buffer Menu when done." | 264 Return to Electric Buffer Menu when done." |
262 (interactive) | 265 (interactive) |
263 (let ((bufnam (Buffer-menu-buffer nil))) | 266 (let ((bufnam (Buffer-menu-buffer nil))) |
264 (if bufnam | 267 (if bufnam |
265 (view-buffer bufnam) | 268 (view-buffer bufnam) |
266 (ding) | 269 (ding) |