# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 889316423 0
# Node ID 10363c2d994acf009ae390f82ea64113fdcb7054
# Parent  aa96b119d0ef2de498de77acad8006c197b32ff9
(bookmark-bmenu-mode-map): Use quit-window for q.
(bookmark-bmenu-quit): Function deleted.

diff -r aa96b119d0ef -r 10363c2d994a lisp/bookmark.el
--- a/lisp/bookmark.el	Sun Mar 08 00:19:56 1998 +0000
+++ b/lisp/bookmark.el	Sun Mar 08 00:20:23 1998 +0000
@@ -1482,7 +1482,7 @@
     nil
   (setq bookmark-bmenu-mode-map (make-keymap))
   (suppress-keymap bookmark-bmenu-mode-map t)
-  (define-key bookmark-bmenu-mode-map "q" 'bookmark-bmenu-quit)
+  (define-key bookmark-bmenu-mode-map "q" 'quit-window)
   (define-key bookmark-bmenu-mode-map "v" 'bookmark-bmenu-select)
   (define-key bookmark-bmenu-mode-map "w" 'bookmark-bmenu-locate)
   (define-key bookmark-bmenu-mode-map "2" 'bookmark-bmenu-2-window)
@@ -1942,14 +1942,6 @@
 	(bookmark-edit-annotation bookmark))))
 
 
-(defun bookmark-bmenu-quit ()
-  "Quit the bookmark menu."
-  (interactive)
-  (let ((buffer (current-buffer)))
-    (switch-to-buffer (other-buffer))
-    (bury-buffer buffer)))
-
-
 (defun bookmark-bmenu-unmark (&optional backup)
   "Cancel all requested operations on bookmark on this line and move down.
 Optional BACKUP means move up."