comparison src/keymap.c @ 20319:81424cf4d446

(copy_keymap_1): Fix return type. (accessible_keymaps_char_table): Likewise. (where_is_internal_2): Likewise. (describe_vector_princ): Likewise. (Ftext_char_description): Fix type of `str'. (describe_vector): Likewise. Protoize parameter.

20318:1507c5324f4c

  }
	  
  return def;
}

Lisp_Object
copy_keymap_1 (chartable, idx, elt)
     Lisp_Object chartable, idx, elt;
{
  if (!SYMBOLP (elt) && ! NILP (Fkeymapp (elt)))
    Faset (chartable, idx, Fcopy_keymap (elt));

  return Flist (nmaps, maps);
}

/* Help functions for describing and documenting keymaps.		*/

static Lisp_Object accessible_keymaps_char_table ();

/* This function cannot GC.  */

DEFUN ("accessible-keymaps", Faccessible_keymaps, Saccessible_keymaps,
  1, 2, 0,

    }

  return Fnreverse (good_maps);
}

static Lisp_Object
accessible_keymaps_char_table (args, index, cmd)
     Lisp_Object args, index, cmd;
{
  Lisp_Object tem;
  Lisp_Object maps, tail, thisseq;

  if (NILP (cmd))
    return Qnil;

  maps = XCONS (args)->car;
  tail = XCONS (XCONS (args)->cdr)->car;
  thisseq = XCONS (XCONS (args)->cdr)->cdr;

	{
	  tem = append_key (thisseq, index);
	  nconc2 (tail, Fcons (Fcons (tem, cmd), Qnil));
	}
    }
  return Qnil;
}

Lisp_Object Qsingle_key_description, Qkey_description;

/* This function cannot GC.  */

  CHECK_NUMBER (character, 0);

  if (!SINGLE_BYTE_CHAR_P (XFASTINT (character)))
    {
      char *str;
      int len = non_ascii_char_to_string (XFASTINT (character), tem, &str);

      return make_string (str, len);
    }


/* where-is - finding a command in a set of keymaps.			*/

static Lisp_Object where_is_internal_1 ();
static Lisp_Object where_is_internal_2 ();

/* This function can GC if Flookup_key autoloads any keymaps.  */

DEFUN ("where-is-internal", Fwhere_is_internal, Swhere_is_internal, 1, 4, 0,
  "Return list of keys that invoke DEFINITION.\n\

    .
    ((THIS . LAST) . (NOMENUS . LAST_IS_META)))
   Since map_char_table doesn't really use the return value from this function,
   we the result append to RESULT, the slot in ARGS.  */

static Lisp_Object
where_is_internal_2 (args, key, binding)
     Lisp_Object args, key, binding;
{
  Lisp_Object definition, noindirect, keymap, this, last;
  Lisp_Object result, sequence;

				  this, last, nomenus, last_is_meta);

  if (!NILP (sequence))
    XCONS (XCONS (XCONS (args)->car)->cdr)->cdr
      = Fcons (sequence, result);

  return Qnil;
}

static Lisp_Object
where_is_internal_1 (binding, key, definition, noindirect, keymap, this, last,
		     nomenus, last_is_meta)

    }

  UNGCPRO;
}

static int
describe_vector_princ (elt)
     Lisp_Object elt;
{
  Findent_to (make_number (16), make_number (1));
  Fprinc (elt, Qnil);

   When describing a sub-char-table, INDICES is a list of
   indices at higher levels in this char-table,
   and CHAR_TABLE_DEPTH says how many levels down we have gone.  */

describe_vector (vector, elt_prefix, elt_describer,
		 partial, shadow, entire_map,
		 indices, char_table_depth)
     register Lisp_Object vector;
     Lisp_Object elt_prefix;
     int (*elt_describer) ();
     int partial;
     Lisp_Object shadow;
     Lisp_Object entire_map;
     int *indices;
     int char_table_depth;

20319:81424cf4d446

  }
	  
  return def;
}

void
copy_keymap_1 (chartable, idx, elt)
     Lisp_Object chartable, idx, elt;
{
  if (!SYMBOLP (elt) && ! NILP (Fkeymapp (elt)))
    Faset (chartable, idx, Fcopy_keymap (elt));

  return Flist (nmaps, maps);
}

/* Help functions for describing and documenting keymaps.		*/

static void accessible_keymaps_char_table ();

/* This function cannot GC.  */

DEFUN ("accessible-keymaps", Faccessible_keymaps, Saccessible_keymaps,
  1, 2, 0,

    }

  return Fnreverse (good_maps);
}

static void
accessible_keymaps_char_table (args, index, cmd)
     Lisp_Object args, index, cmd;
{
  Lisp_Object tem;
  Lisp_Object maps, tail, thisseq;

  if (NILP (cmd))
    return;

  maps = XCONS (args)->car;
  tail = XCONS (XCONS (args)->cdr)->car;
  thisseq = XCONS (XCONS (args)->cdr)->cdr;

	{
	  tem = append_key (thisseq, index);
	  nconc2 (tail, Fcons (Fcons (tem, cmd), Qnil));
	}
    }
}

Lisp_Object Qsingle_key_description, Qkey_description;

/* This function cannot GC.  */

  CHECK_NUMBER (character, 0);

  if (!SINGLE_BYTE_CHAR_P (XFASTINT (character)))
    {
      unsigned char *str;
      int len = non_ascii_char_to_string (XFASTINT (character), tem, &str);

      return make_string (str, len);
    }


/* where-is - finding a command in a set of keymaps.			*/

static Lisp_Object where_is_internal_1 ();
static void where_is_internal_2 ();

/* This function can GC if Flookup_key autoloads any keymaps.  */

DEFUN ("where-is-internal", Fwhere_is_internal, Swhere_is_internal, 1, 4, 0,
  "Return list of keys that invoke DEFINITION.\n\

    .
    ((THIS . LAST) . (NOMENUS . LAST_IS_META)))
   Since map_char_table doesn't really use the return value from this function,
   we the result append to RESULT, the slot in ARGS.  */

static void
where_is_internal_2 (args, key, binding)
     Lisp_Object args, key, binding;
{
  Lisp_Object definition, noindirect, keymap, this, last;
  Lisp_Object result, sequence;

				  this, last, nomenus, last_is_meta);

  if (!NILP (sequence))
    XCONS (XCONS (XCONS (args)->car)->cdr)->cdr
      = Fcons (sequence, result);
}

static Lisp_Object
where_is_internal_1 (binding, key, definition, noindirect, keymap, this, last,
		     nomenus, last_is_meta)

    }

  UNGCPRO;
}

static void
describe_vector_princ (elt)
     Lisp_Object elt;
{
  Findent_to (make_number (16), make_number (1));
  Fprinc (elt, Qnil);

   When describing a sub-char-table, INDICES is a list of
   indices at higher levels in this char-table,
   and CHAR_TABLE_DEPTH says how many levels down we have gone.  */

void.
describe_vector (vector, elt_prefix, elt_describer,
		 partial, shadow, entire_map,
		 indices, char_table_depth)
     register Lisp_Object vector;
     Lisp_Object elt_prefix;
     void (*elt_describer) P_ ((Lisp_Object));
     int partial;
     Lisp_Object shadow;
     Lisp_Object entire_map;
     int *indices;
     int char_table_depth;