(read_char_minibuf_menu_prompt): Don't list equivalent key bindings here.

2 files changed, 8 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index c7640fa91bd..99e03b87961 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-20  Richard M. Stallman  <rms@gnu.org>
+
+        * keyboard.c (read_char_minibuf_menu_prompt): Don't list
+        equivalent key bindings here.
+
 2002-05-20  Ken Raeburn  <raeburn@gnu.org>
 
         Change symbol structure to contain a lisp object for the symbol
diff --git a/src/keyboard.c b/src/keyboard.c
index 25e0c69af1d..ffc86840865 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -7727,12 +7727,14 @@ read_char_minibuf_menu_prompt (commandflag, nmaps, maps)
                   if (! char_matches)
                     desc = Fsingle_key_description (event, Qnil);
 
+#if 0  /* It is redundant to list the equivalent key bindings because
+          the prefix is what the user has already typed.  */
                   tem
                     = XVECTOR (item_properties)->contents[ITEM_PROPERTY_KEYEQ];
                   if (!NILP (tem))
                     /* Insert equivalent keybinding. */
                     s = concat2 (s, tem);
-
+#endif
                   tem
                     = XVECTOR (item_properties)->contents[ITEM_PROPERTY_TYPE];
                   if (EQ (tem, QCradio) || EQ (tem, QCtoggle))