comparison src/keyboard.c @ 112079:492307508262

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.

112078:2285c33f3bb0

    Lisp_Object keyeq = AREF (item_properties, ITEM_PROPERTY_KEYEQ);

    /* The previous code preferred :key-sequence to :keys, so we
       preserve this behavior.  */
    if (STRINGP (keyeq) && !CONSP (keyhint))
      keyeq = Fsubstitute_command_keys (keyeq);
    else
      {
	Lisp_Object prefix = keyeq;
	Lisp_Object keys = Qnil;

112079:492307508262

    Lisp_Object keyeq = AREF (item_properties, ITEM_PROPERTY_KEYEQ);

    /* The previous code preferred :key-sequence to :keys, so we
       preserve this behavior.  */
    if (STRINGP (keyeq) && !CONSP (keyhint))
      keyeq = concat2 (build_string ("  "), Fsubstitute_command_keys (keyeq));
    else
      {
	Lisp_Object prefix = keyeq;
	Lisp_Object keys = Qnil;