From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 20 May 2002 14:50:25 +0000 (+0000)
Subject: (read_char_minibuf_menu_prompt): Don't list equivalent key bindings here.
X-Git-Tag: ttn-vms-21-2-B4~14954
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=301d4a3f34e23bb74c1eb33775d8f53596d81241;p=emacs.git

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

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))