From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 8 Mar 1998 00:20:23 +0000 (+0000)
Subject: (bookmark-bmenu-mode-map): Use quit-window for q.
X-Git-Tag: emacs-20.3~1980
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=31cd9611fe3385c56aeab94e6e34feca616b2f4c;p=emacs.git

(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 511c237b028..138512053ff 100644
--- 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."