From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 8 Mar 1998 00:19:56 +0000 (+0000)
Subject: (Buffer-menu-quit): Function deleted.
X-Git-Tag: emacs-20.3~1981
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=68e6f0948b07031692b4244ef60dfa0c6f29c9b3;p=emacs.git

(Buffer-menu-quit): Function deleted.
(Buffer-menu-mode-map): Use quit-window for q.
---

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-mode-map>\\[Buffer-menu-select] command."
   (interactive)