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

diff --git a/src/ChangeLog b/src/ChangeLog
index c7640fa91bd87bffb0e17171ff0f7c694e514dcf..99e03b87961dd4402c075c0fcd2076dbac1a8e8f 100644 (file)
--- 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 25e0c69af1d28242dd6c6b9efb8c9fe53b037847..ffc868408658e795380e297df10d5555756f170e 100644 (file)
--- 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))