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

301d4a3f · Richard M. Stallman · 45885400 · 301d4a3f · 301d4a3f
Commit 301d4a3f authored May 20, 2002 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 8 additions and 1 deletion

src/ChangeLog src/ChangeLog +5 -0

src/keyboard.c src/keyboard.c +3 -1

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+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

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