Mercurial > emacs
changeset 21093:aa96b119d0ef
(Buffer-menu-quit): Function deleted.
(Buffer-menu-mode-map): Use quit-window for q.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 08 Mar 1998 00:19:56 +0000 |
| parents | 7726f8d9eff0 |
| children | 10363c2d994a |
| files | lisp/buff-menu.el |
| diffstat | 1 files changed, 1 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/buff-menu.el Sun Mar 08 00:16:38 1998 +0000 +++ b/lisp/buff-menu.el Sun Mar 08 00:19:56 1998 +0000 @@ -67,7 +67,7 @@ () (setq Buffer-menu-mode-map (make-keymap)) (suppress-keymap Buffer-menu-mode-map t) - (define-key Buffer-menu-mode-map "q" 'Buffer-menu-quit) + (define-key Buffer-menu-mode-map "q" 'quit-window) (define-key Buffer-menu-mode-map "v" 'Buffer-menu-select) (define-key Buffer-menu-mode-map "2" 'Buffer-menu-2-window) (define-key Buffer-menu-mode-map "1" 'Buffer-menu-1-window) @@ -184,14 +184,6 @@ (message "Commands: d, s, x, u; f, o, 1, 2, m, v; ~, %%; q to quit; ? for help.")) -(defun Buffer-menu-quit () - "Quit the buffer menu." - (interactive) - (let ((buffer (current-buffer))) - ;; Switch away from the buffer menu and bury it. - (switch-to-buffer (other-buffer)) - (bury-buffer buffer))) - (defun Buffer-menu-mark () "Mark buffer on this line for being displayed by \\<Buffer-menu-mode-map>\\[Buffer-menu-select] command." (interactive)