Commit 68e6f094 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Buffer-menu-quit): Function deleted.

(Buffer-menu-mode-map): Use quit-window for q.
parent 44071d6b
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment