comparison src/keymap.c @ 29716:8797e25c4231

fix shadowing of 'keymap' enum value

29715:456f38737c9a

and entirely reject menu bindings.\n\
\n\
If optional 4th arg NOINDIRECT is non-nil, don't follow indirections\n\
to other keymaps or slots.  This makes it possible to search for an\n\
indirect definition itself.")
  (definition, keymap, firstonly, noindirect)
     Lisp_Object definition, keymap;
     Lisp_Object firstonly, noindirect;
{
  Lisp_Object maps;
  Lisp_Object found, sequences;
  Lisp_Object keymap1;
  int keymap_specified = !NILP (keymap);
  struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
  /* 1 means ignore all menu bindings entirely.  */
  int nomenus = !NILP (firstonly) && !EQ (firstonly, Qnon_ascii);

  /* Find keymaps accessible from `keymap' or the current
     context.  But don't muck with the value of `keymap',
     because `where_is_internal_1' uses it to check for
     shadowed bindings. */
  keymap1 = keymap;
  if (! keymap_specified)
    keymap1 = get_local_map (PT, current_buffer, keymap);
    
  if (!NILP (keymap1))
    maps = nconc2 (Faccessible_keymaps (get_keymap (keymap1), Qnil),
		   Faccessible_keymaps (get_keymap (current_global_map),
					Qnil));
  else
    {
      keymap1 = keymap;
      if (! keymap_specified)
	keymap1 = get_local_map (PT, current_buffer, local_map);
    
      if (!NILP (keymap1))
	maps = nconc2 (Faccessible_keymaps (get_keymap (keymap1), Qnil),

			 maps);
	  minors = XCDR (minors);
	}
    }

  GCPRO5 (definition, keymap, maps, found, sequences);
  found = Qnil;
  sequences = Qnil;

  for (; !NILP (maps); maps = Fcdr (maps))
    {

	      for (i = 0; i < XVECTOR (elt)->size; i++)
		{
		  binding = XVECTOR (elt)->contents[i];
		  XSETFASTINT (key, i);
		  sequence = where_is_internal_1 (binding, key, definition,
						  noindirect, keymap, this,
						  last, nomenus, last_is_meta);
		  if (!NILP (sequence))
		    sequences = Fcons (sequence, sequences);
		}
	    }

	    {
	      Lisp_Object indices[3];
	      Lisp_Object args;

	      args = Fcons (Fcons (Fcons (definition, noindirect),
				   Fcons (keymap, Qnil)),
			    Fcons (Fcons (this, last),
				   Fcons (make_number (nomenus),
					  make_number (last_is_meta))));

	      map_char_table (where_is_internal_2, Qnil, elt, args,

	      key = XCAR (elt);
	      binding = XCDR (elt);

	      sequence = where_is_internal_1 (binding, key, definition,
					      noindirect, keymap, this,
					      last, nomenus, last_is_meta);
	      if (!NILP (sequence))
		sequences = Fcons (sequence, sequences);
	    }

29716:8797e25c4231

and entirely reject menu bindings.\n\
\n\
If optional 4th arg NOINDIRECT is non-nil, don't follow indirections\n\
to other keymaps or slots.  This makes it possible to search for an\n\
indirect definition itself.")
  (definition, xkeymap, firstonly, noindirect)
     Lisp_Object definition, xkeymap;
     Lisp_Object firstonly, noindirect;
{
  Lisp_Object maps;
  Lisp_Object found, sequences;
  Lisp_Object keymap1;
  int keymap_specified = !NILP (xkeymap);
  struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5;
  /* 1 means ignore all menu bindings entirely.  */
  int nomenus = !NILP (firstonly) && !EQ (firstonly, Qnon_ascii);

  /* Find keymaps accessible from `keymap' or the current
     context.  But don't muck with the value of `keymap',
     because `where_is_internal_1' uses it to check for
     shadowed bindings. */
  keymap1 = xkeymap;
  if (! keymap_specified)
    keymap1 = get_local_map (PT, current_buffer, keymap);
    
  if (!NILP (keymap1))
    maps = nconc2 (Faccessible_keymaps (get_keymap (keymap1), Qnil),
		   Faccessible_keymaps (get_keymap (current_global_map),
					Qnil));
  else
    {
      keymap1 = xkeymap;
      if (! keymap_specified)
	keymap1 = get_local_map (PT, current_buffer, local_map);
    
      if (!NILP (keymap1))
	maps = nconc2 (Faccessible_keymaps (get_keymap (keymap1), Qnil),

			 maps);
	  minors = XCDR (minors);
	}
    }

  GCPRO5 (definition, xkeymap, maps, found, sequences);
  found = Qnil;
  sequences = Qnil;

  for (; !NILP (maps); maps = Fcdr (maps))
    {

	      for (i = 0; i < XVECTOR (elt)->size; i++)
		{
		  binding = XVECTOR (elt)->contents[i];
		  XSETFASTINT (key, i);
		  sequence = where_is_internal_1 (binding, key, definition,
						  noindirect, xkeymap, this,
						  last, nomenus, last_is_meta);
		  if (!NILP (sequence))
		    sequences = Fcons (sequence, sequences);
		}
	    }

	    {
	      Lisp_Object indices[3];
	      Lisp_Object args;

	      args = Fcons (Fcons (Fcons (definition, noindirect),
				   Fcons (xkeymap, Qnil)),
			    Fcons (Fcons (this, last),
				   Fcons (make_number (nomenus),
					  make_number (last_is_meta))));

	      map_char_table (where_is_internal_2, Qnil, elt, args,

	      key = XCAR (elt);
	      binding = XCDR (elt);

	      sequence = where_is_internal_1 (binding, key, definition,
					      noindirect, xkeymap, this,
					      last, nomenus, last_is_meta);
	      if (!NILP (sequence))
		sequences = Fcons (sequence, sequences);
	    }