From 31cd9611fe3385c56aeab94e6e34feca616b2f4c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 8 Mar 1998 00:20:23 +0000 Subject: [PATCH] (bookmark-bmenu-mode-map): Use quit-window for q. (bookmark-bmenu-quit): Function deleted. --- lisp/bookmark.el | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) 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." -- 2.39.2