(bookmark-bmenu-mode-map): Use quit-window for q.

(bookmark-bmenu-quit): Function deleted.

diff --git a/lisp/bookmark.el b/lisp/bookmark.el
index 511c237b02832255958691153a80566e123a02a2..138512053ff7e31df44f0f9feb1ae8d977d8d610 100644 (file)
--- a/lisp/bookmark.el
+++ b/lisp/bookmark.el
@@ -1482,7 +1482,7 @@ method buffers use to resolve name collisions."
     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 @@ The current window remains selected."
        (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."