# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1293297597 -7200
# Node ID 492307508262b99975db03f2ec23faa17b25f942
# Parent  2285c33f3bb0978a9ae01f2fa1a01eda3b03b307
Fix bug #7662 with aligning key bindings equivalent to menu items.

 keyboard.c (parse_menu_item): Prepend "  " to the key sequence
 equivalent of a menu item when the key sequence is given by the
 `:keys' attribute.

diff -r 2285c33f3bb0 -r 492307508262 src/ChangeLog
--- a/src/ChangeLog	Sat Dec 25 13:50:34 2010 +0200
+++ b/src/ChangeLog	Sat Dec 25 19:19:57 2010 +0200
@@ -1,5 +1,9 @@
 2010-12-25  Eli Zaretskii  <eliz@gnu.org>
 
+	* keyboard.c (parse_menu_item): Prepend "  " to the key sequence
+	equivalent of a menu item when the key sequence is given by the
+	`:keys' attribute.  (Bug#7662)
+
 	* xdisp.c (Fformat_mode_line): Doc fix: no need to state that only
 	the basic faces are supported.
 
diff -r 2285c33f3bb0 -r 492307508262 src/keyboard.c
--- a/src/keyboard.c	Sat Dec 25 13:50:34 2010 +0200
+++ b/src/keyboard.c	Sat Dec 25 19:19:57 2010 +0200
@@ -8193,7 +8193,7 @@
     /* The previous code preferred :key-sequence to :keys, so we
        preserve this behavior.  */
     if (STRINGP (keyeq) && !CONSP (keyhint))
-      keyeq = Fsubstitute_command_keys (keyeq);
+      keyeq = concat2 (build_string ("  "), Fsubstitute_command_keys (keyeq));
     else
       {
 	Lisp_Object prefix = keyeq;