comparison src/keymap.c @ 91056:1251cabc40b7

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 890-898) - Update from CVS - Merge from emacs--rel--22 * emacs--rel--22 (patch 122-128) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 257-258) - Merge from emacs--rel--22 - Update from CVS Revision: [e-mail]/emacs--unicode--0--patch-270

91055:46bc3a01b2fa

    return Fkey_binding (command_remapping_vector, Qnil, Qt, position);
  else
    {
      Lisp_Object maps, binding;

      for (maps = keymaps; !NILP (maps); maps = Fcdr (maps))
	{
	  binding = Flookup_key (Fcar (maps), command_remapping_vector, Qnil);
	  if (!NILP (binding) && !INTEGERP (binding))
	    return binding;
	}
      return Qnil;
    }

  if (NILP (no_remap)
      && SYMBOLP (definition)
      && !NILP (Fcommand_remapping (definition, Qnil, keymaps)))
    RETURN_UNGCPRO (Qnil);

  for (; !NILP (maps); maps = Fcdr (maps))
    {
      /* Key sequence to reach map, and the map that it reaches */
      register Lisp_Object this, map, tem;
      struct where_is_internal_data data;

	 [M-CHAR] sequences, check if last character of the sequence
	 is the meta-prefix char.  */
      Lisp_Object last;
      int last_is_meta;

      this = Fcar (Fcar (maps));
      map  = Fcdr (Fcar (maps));
      last = make_number (XINT (Flength (this)) - 1);
      last_is_meta = (XINT (last) >= 0
		      && EQ (Faref (this, last), meta_prefix_char));

      /* if (nomenus && !ascii_sequence_p (this)) */

  if (nomenu)
    {
      Lisp_Object list;

      /* Delete from MAPS each element that is for the menu bar.  */
      for (list = maps; !NILP (list); list = XCDR (list))
	{
	  Lisp_Object elt, prefix, tem;

	  elt = Fcar (list);
	  prefix = Fcar (elt);
	  if (XVECTOR (prefix)->size >= 1)
	    {
	      tem = Faref (prefix, make_number (0));
	      if (EQ (tem, Qmenu_bar))

	}
      insert_string (key_heading);
      something = 1;
    }

  for (; !NILP (maps); maps = Fcdr (maps))
    {
      register Lisp_Object elt, prefix, tail;

      elt = Fcar (maps);
      prefix = Fcar (elt);

      sub_shadows = Qnil;

      for (tail = shadow; CONSP (tail); tail = XCDR (tail))

91056:1251cabc40b7

    return Fkey_binding (command_remapping_vector, Qnil, Qt, position);
  else
    {
      Lisp_Object maps, binding;

      for (maps = keymaps; CONSP (maps); maps = XCDR (maps))
	{
	  binding = Flookup_key (XCAR (maps), command_remapping_vector, Qnil);
	  if (!NILP (binding) && !INTEGERP (binding))
	    return binding;
	}
      return Qnil;
    }

  if (NILP (no_remap)
      && SYMBOLP (definition)
      && !NILP (Fcommand_remapping (definition, Qnil, keymaps)))
    RETURN_UNGCPRO (Qnil);

  for (; CONSP (maps); maps = XCDR (maps))
    {
      /* Key sequence to reach map, and the map that it reaches */
      register Lisp_Object this, map, tem;
      struct where_is_internal_data data;

	 [M-CHAR] sequences, check if last character of the sequence
	 is the meta-prefix char.  */
      Lisp_Object last;
      int last_is_meta;

      this = Fcar (XCAR (maps));
      map  = Fcdr (XCAR (maps));
      last = make_number (XINT (Flength (this)) - 1);
      last_is_meta = (XINT (last) >= 0
		      && EQ (Faref (this, last), meta_prefix_char));

      /* if (nomenus && !ascii_sequence_p (this)) */

  if (nomenu)
    {
      Lisp_Object list;

      /* Delete from MAPS each element that is for the menu bar.  */
      for (list = maps; CONSP (list); list = XCDR (list))
	{
	  Lisp_Object elt, prefix, tem;

	  elt = XCAR (list);
	  prefix = Fcar (elt);
	  if (XVECTOR (prefix)->size >= 1)
	    {
	      tem = Faref (prefix, make_number (0));
	      if (EQ (tem, Qmenu_bar))

	}
      insert_string (key_heading);
      something = 1;
    }

  for (; CONSP (maps); maps = XCDR (maps))
    {
      register Lisp_Object elt, prefix, tail;

      elt = XCAR (maps);
      prefix = Fcar (elt);

      sub_shadows = Qnil;

      for (tail = shadow; CONSP (tail); tail = XCDR (tail))