From 68e6f0948b07031692b4244ef60dfa0c6f29c9b3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 8 Mar 1998 00:19:56 +0000 Subject: [PATCH] (Buffer-menu-quit): Function deleted. (Buffer-menu-mode-map): Use quit-window for q. --- lisp/buff-menu.el | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 2b187a2bf1a..9990fdb760e 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -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 @@ Type q immediately to make the buffer menu go away." (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-select] command." (interactive) -- 2.39.2