(menu-bar-edit-menu) <copy>: Put an explicit key binding.

2 files changed, 11 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8cf3e4d16a6..78d33adce86 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2001-11-15  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * menu-bar.el (menu-bar-edit-menu) <copy>: Put an explicit key binding.
+
 2001-11-15  Richard M. Stallman  <rms@gnu.org>
 
         * dired.el (dired-undo): Display a message to explain
@@ -5,11 +9,11 @@
 
 2001-11-15  David Kastrup  <David.Kastrup@t-online.de>
 
-        * mouse-drag.el: (mouse-drag-throw) Push back non-drag events
-        into `unread-command-events' instead of trying keymap
-        lookups ourselves.  This makes mouse-clicks do the right
-        thing even when keymaps of overlays are involved.
-        (mouse-drag-drag) Likewise.
+        * mouse-drag.el (mouse-drag-throw): Push back non-drag events
+        into `unread-command-events' instead of trying keymap
+        lookups ourselves.  This makes mouse-clicks do the right
+        thing even when keymaps of overlays are involved.
+        (mouse-drag-drag): Likewise.
 
 2001-11-15  Andreas Schwab  <schwab@suse.de>
 
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 5d169aaea2b..01efd3b6d68 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -407,7 +407,8 @@ A large number or nil slows down menu responsiveness."
 (define-key menu-bar-edit-menu [copy]
   '(menu-item "Copy" menu-bar-kill-ring-save
               :enable mark-active
-              :help "Copy text in region between mark and current position"))
+              :help "Copy text in region between mark and current position"
+              :keys "\\[kill-ring-save]"))
 (define-key menu-bar-edit-menu [cut]
   '(menu-item "Cut" kill-region
               :enable (and mark-active (not buffer-read-only))