comparison src/coding.c @ 30674:9aad40936cfe

*coding.c (find_safe_codings): CHAR_TABLE_SET index must be a lisp object. (Ffind_coding_systems_region_internal): First argument to Fappend must be an integer, not a lisp object.

30673:22c794dd4d60

      val = char_table_ref_and_index (work_table, c, &idx);
      if (EQ (val, Qt))
	/* This element was already checked.  Ignore it.  */
	continue;
      /* Remember that we checked this element.  */
      CHAR_TABLE_SET (work_table, idx, Qt);

      /* If there are some safe coding systems for C and we have
	 already found the other set of coding systems for the
	 different characters, get the intersection of them.  */
      if (!EQ (safe_codings, Qt) && !NILP (val))

      /* Append generic coding systems.  */
      Lisp_Object args[2];
      args[0] = safe_codings;
      args[1] = Fchar_table_extra_slot (Vchar_coding_system_table,
					make_number (0));
      safe_codings = Fappend (make_number (2), args);
    }
  else
    safe_codings = Fcons (Qraw_text, Fcons (Qemacs_mule, safe_codings));
  return safe_codings;
}

30674:9aad40936cfe

      val = char_table_ref_and_index (work_table, c, &idx);
      if (EQ (val, Qt))
	/* This element was already checked.  Ignore it.  */
	continue;
      /* Remember that we checked this element.  */
      CHAR_TABLE_SET (work_table, make_number (idx), Qt);

      /* If there are some safe coding systems for C and we have
	 already found the other set of coding systems for the
	 different characters, get the intersection of them.  */
      if (!EQ (safe_codings, Qt) && !NILP (val))

      /* Append generic coding systems.  */
      Lisp_Object args[2];
      args[0] = safe_codings;
      args[1] = Fchar_table_extra_slot (Vchar_coding_system_table,
					make_number (0));
      safe_codings = Fappend (2, args);
    }
  else
    safe_codings = Fcons (Qraw_text, Fcons (Qemacs_mule, safe_codings));
  return safe_codings;
}