comparison src/fns.c @ 25709:ba4e2a641663

(SXHASH_COMBINE): Add missing parentheses. (Fchar_table_range, Fset_char_table_default, mapcar1, Fyes_or_no_p, sweep_weak_hash_tables): Remove unused variable(s).

25708:a6aabf050a60

a vector which identifies a character set or a row of a character set,\n\
a character set name, or a character code.")
  (char_table, range)
     Lisp_Object char_table, range;
{
  int i;

  CHECK_CHAR_TABLE (char_table, 0);

  if (EQ (range, Qnil))
    return XCHAR_TABLE (char_table)->defalt;
  else if (INTEGERP (range))

The generic character specifies the group of characters.\n\
See also the documentation of make-char.")
  (char_table, ch, value)
     Lisp_Object char_table, ch, value;
{
  int c, i, charset, code1, code2;
  Lisp_Object temp;

  CHECK_CHAR_TABLE (char_table, 0);
  CHECK_NUMBER (ch, 1);

	}
    }
  else if (STRINGP (seq))
    {
      /* Multi-byte string.  */
      int len_byte = STRING_BYTES (XSTRING (seq));
      int i_byte;

      for (i = 0, i_byte = 0; i < leni;)
	{
	  int c;

     Lisp_Object prompt;
{
  register Lisp_Object ans;
  Lisp_Object args[2];
  struct gcpro gcpro1;
  Lisp_Object menu;

  CHECK_STRING (prompt, 0);

#ifdef HAVE_MENUS
  if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))

	      int bucket, n;

	      n = XVECTOR (h->index)->size & ~ARRAY_MARK_FLAG;
	      for (bucket = 0; bucket < n; ++bucket)
		{
		  Lisp_Object idx, key, value, prev, next;

		  /* Follow collision chain, removing entries that
		     don't survive this garbage collection.  */
		  idx = HASH_INDEX (h, bucket);
		  prev = Qnil;

#define SXHASH_MAX_LEN   7

/* Combine two integers X and Y for hashing.  */

#define SXHASH_COMBINE(X, Y)						\
     ((((unsigned)(X) << 4) + ((unsigned)(X) >> 24) & 0x0fffffff)	\
      + (unsigned)(Y))


/* Return a hash for string PTR which has length LEN.  */

25709:ba4e2a641663

a vector which identifies a character set or a row of a character set,\n\
a character set name, or a character code.")
  (char_table, range)
     Lisp_Object char_table, range;
{
  CHECK_CHAR_TABLE (char_table, 0);

  if (EQ (range, Qnil))
    return XCHAR_TABLE (char_table)->defalt;
  else if (INTEGERP (range))

The generic character specifies the group of characters.\n\
See also the documentation of make-char.")
  (char_table, ch, value)
     Lisp_Object char_table, ch, value;
{
  int c, charset, code1, code2;
  Lisp_Object temp;

  CHECK_CHAR_TABLE (char_table, 0);
  CHECK_NUMBER (ch, 1);

	}
    }
  else if (STRINGP (seq))
    {
      /* Multi-byte string.  */
      int i_byte;

      for (i = 0, i_byte = 0; i < leni;)
	{
	  int c;

     Lisp_Object prompt;
{
  register Lisp_Object ans;
  Lisp_Object args[2];
  struct gcpro gcpro1;

  CHECK_STRING (prompt, 0);

#ifdef HAVE_MENUS
  if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))

	      int bucket, n;

	      n = XVECTOR (h->index)->size & ~ARRAY_MARK_FLAG;
	      for (bucket = 0; bucket < n; ++bucket)
		{
		  Lisp_Object idx, prev;

		  /* Follow collision chain, removing entries that
		     don't survive this garbage collection.  */
		  idx = HASH_INDEX (h, bucket);
		  prev = Qnil;

#define SXHASH_MAX_LEN   7

/* Combine two integers X and Y for hashing.  */

#define SXHASH_COMBINE(X, Y)						\
     ((((unsigned)(X) << 4) + (((unsigned)(X) >> 24) & 0x0fffffff))	\
      + (unsigned)(Y))


/* Return a hash for string PTR which has length LEN.  */