Mercurial > emacs
comparison lisp/buff-menu.el @ 735:ea0823fe7df5
*** empty log message ***
author | Roland McGrath <roland@gnu.org> |
---|---|
date | Thu, 02 Jul 1992 02:36:29 +0000 |
parents | 8a533acedb77 |
children | 0276f8eb306f |
comparison
equal
deleted
inserted
replaced
734:64e152d639af | 735:ea0823fe7df5 |
---|---|
1 ;;; buff-menu.el --- buffer menu main function and support functions. | 1 ;;; buff-menu.el --- buffer menu main function and support functions. |
2 | 2 |
3 ;; Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1985, 1986, 1987, 1992 Free Software Foundation, Inc. |
4 | 4 |
5 ;; This file is part of GNU Emacs. | 5 ;; This file is part of GNU Emacs. |
6 | 6 |
7 ;; GNU Emacs is free software; you can redistribute it and/or modify | 7 ;; GNU Emacs is free software; you can redistribute it and/or modify |
8 ;; it under the terms of the GNU General Public License as published by | 8 ;; it under the terms of the GNU General Public License as published by |
9 ;; the Free Software Foundation; either version 1, or (at your option) | 9 ;; the Free Software Foundation; either version 2, or (at your option) |
10 ;; any later version. | 10 ;; any later version. |
11 | 11 |
12 ;; GNU Emacs is distributed in the hope that it will be useful, | 12 ;; GNU Emacs is distributed in the hope that it will be useful, |
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | 13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
31 (define-key Buffer-menu-mode-map "q" 'Buffer-menu-select) | 31 (define-key Buffer-menu-mode-map "q" 'Buffer-menu-select) |
32 (define-key Buffer-menu-mode-map "2" 'Buffer-menu-2-window) | 32 (define-key Buffer-menu-mode-map "2" 'Buffer-menu-2-window) |
33 (define-key Buffer-menu-mode-map "1" 'Buffer-menu-1-window) | 33 (define-key Buffer-menu-mode-map "1" 'Buffer-menu-1-window) |
34 (define-key Buffer-menu-mode-map "f" 'Buffer-menu-this-window) | 34 (define-key Buffer-menu-mode-map "f" 'Buffer-menu-this-window) |
35 (define-key Buffer-menu-mode-map "o" 'Buffer-menu-other-window) | 35 (define-key Buffer-menu-mode-map "o" 'Buffer-menu-other-window) |
36 (define-key Buffer-menu-mode-map "\C-o" 'Buffer-menu-switch-other-window) | |
36 (define-key Buffer-menu-mode-map "s" 'Buffer-menu-save) | 37 (define-key Buffer-menu-mode-map "s" 'Buffer-menu-save) |
37 (define-key Buffer-menu-mode-map "d" 'Buffer-menu-delete) | 38 (define-key Buffer-menu-mode-map "d" 'Buffer-menu-delete) |
38 (define-key Buffer-menu-mode-map "k" 'Buffer-menu-delete) | 39 (define-key Buffer-menu-mode-map "k" 'Buffer-menu-delete) |
39 (define-key Buffer-menu-mode-map "\C-d" 'Buffer-menu-delete-backwards) | 40 (define-key Buffer-menu-mode-map "\C-d" 'Buffer-menu-delete-backwards) |
40 (define-key Buffer-menu-mode-map "\C-k" 'Buffer-menu-delete) | 41 (define-key Buffer-menu-mode-map "\C-k" 'Buffer-menu-delete) |
64 \\[Buffer-menu-2-window] -- select that buffer in one window, | 65 \\[Buffer-menu-2-window] -- select that buffer in one window, |
65 together with buffer selected before this one in another window. | 66 together with buffer selected before this one in another window. |
66 \\[Buffer-menu-this-window] -- select that buffer in place of the buffer menu buffer. | 67 \\[Buffer-menu-this-window] -- select that buffer in place of the buffer menu buffer. |
67 \\[Buffer-menu-other-window] -- select that buffer in another window, | 68 \\[Buffer-menu-other-window] -- select that buffer in another window, |
68 so the buffer menu buffer remains visible in its window. | 69 so the buffer menu buffer remains visible in its window. |
70 \\[Buffer-menu-switch-other-window] -- switch the other window to this buffer. | |
69 \\[Buffer-menu-visit-tags-table] -- visit-tags-table this buffer. | 71 \\[Buffer-menu-visit-tags-table] -- visit-tags-table this buffer. |
70 \\[Buffer-menu-not-modified] -- clear modified-flag on that buffer. | 72 \\[Buffer-menu-not-modified] -- clear modified-flag on that buffer. |
71 \\[Buffer-menu-save] -- mark that buffer to be saved, and move down. | 73 \\[Buffer-menu-save] -- mark that buffer to be saved, and move down. |
72 \\[Buffer-menu-delete] -- mark that buffer to be deleted, and move down. | 74 \\[Buffer-menu-delete] -- mark that buffer to be deleted, and move down. |
73 \\[Buffer-menu-delete-backwards] -- mark that buffer to be deleted, and move up. | 75 \\[Buffer-menu-delete-backwards] -- mark that buffer to be deleted, and move up. |
272 (defun Buffer-menu-other-window () | 274 (defun Buffer-menu-other-window () |
273 "Select this line's buffer in other window, leaving buffer menu visible." | 275 "Select this line's buffer in other window, leaving buffer menu visible." |
274 (interactive) | 276 (interactive) |
275 (switch-to-buffer-other-window (Buffer-menu-buffer t))) | 277 (switch-to-buffer-other-window (Buffer-menu-buffer t))) |
276 | 278 |
279 (defun Buffer-menu-switch-other-window () | |
280 "Make the other window select this line's buffer. | |
281 The current window remains selected." | |
282 (interactive) | |
283 (display-buffer (Buffer-menu-buffer t))) | |
284 | |
277 (defun Buffer-menu-2-window () | 285 (defun Buffer-menu-2-window () |
278 "Select this line's buffer, with previous buffer in second window." | 286 "Select this line's buffer, with previous buffer in second window." |
279 (interactive) | 287 (interactive) |
280 (let ((buff (Buffer-menu-buffer t)) | 288 (let ((buff (Buffer-menu-buffer t)) |
281 (menu (current-buffer)) | 289 (menu (current-buffer)) |