comparison src/coding.c @ 83516:1321f6cfb389

Merged from [e-mail] Patches applied: * [e-mail]/emacs--devo--0--patch-266 Update from CVS * [e-mail]/emacs--devo--0--patch-267 Update from CVS * [e-mail]/emacs--devo--0--patch-268 Update from CVS * [e-mail]/emacs--devo--0--patch-269 Update from CVS * [e-mail]/emacs--devo--0--patch-270 Update from CVS * [e-mail]/emacs--devo--0--patch-271 Rename "field-at-point" to "field-at-pos" * [e-mail]/emacs--devo--0--patch-272 (comint-insert-input): Remove redundant calls to setq and goto-char git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-556

83515:f7a396df2380

/* Mnemonic string to indicate format of end-of-line is not yet
   decided.  */
Lisp_Object eol_mnemonic_undecided;

/* Format of end-of-line decided by system.  This is CODING_EOL_LF on
   Unix, CODING_EOL_CRLF on DOS/Windows, and CODING_EOL_CR on Mac.  */
int system_eol_type;

#ifdef emacs

/* Information about which coding system is safe for which chars.

 label_invalid_coding_system:
  coding->type = coding_type_no_conversion;
  coding->category_idx = CODING_CATEGORY_IDX_BINARY;
  coding->common_flags = 0;
  coding->eol_type = NILP (coding_system) ? system_eol_type : CODING_EOL_LF;
  if (coding->eol_type != CODING_EOL_LF)
    coding->common_flags
      |= CODING_REQUIRE_DECODING_MASK | CODING_REQUIRE_ENCODING_MASK;
  coding->pre_write_conversion = coding->post_read_conversion = Qnil;
  return NILP (coding_system) ? 0 : -1;
}

/* Free memory blocks allocated for storing composition information.  */

  coding->produced = coding->produced_char = 0;
  coding->consumed = coding->consumed_char = 0;
  coding->errors = 0;
  coding->result = CODING_FINISH_NORMAL;
  if (coding->eol_type == CODING_EOL_UNDECIDED)
    coding->eol_type = system_eol_type;

  switch (coding->type)
    {
    case coding_type_sjis:
      encode_coding_sjis_big5 (coding, source, destination,

  Lisp_Object translation_table;

  if (coding->type == coding_type_ccl
      || coding->eol_type == CODING_EOL_CRLF
      || coding->eol_type == CODING_EOL_CR
      || (coding->eol_type == CODING_EOL_UNDECIDED
	  && system_eol_type != CODING_EOL_LF)
      || (coding->cmp_data && coding->cmp_data->used > 0))
    {
      /* We can't skip any data.  */
      return;
    }

  validate_region (&start, &end);
  from = XFASTINT (start);
  to = XFASTINT (end);

  if (NILP (coding_system) && system_eol_type == CODING_EOL_LF)
    return make_number (to - from);

  if (setup_coding_system (Fcheck_coding_system (coding_system), &coding) < 0)
    error ("Invalid coding system: %s", SDATA (SYMBOL_NAME (coding_system)));

  struct coding_system coding;

  CHECK_STRING (string);
  CHECK_SYMBOL (coding_system);

  if (NILP (coding_system) && system_eol_type == CODING_EOL_LF)
    return (NILP (nocopy) ? Fcopy_sequence (string) : string);

  if (setup_coding_system (Fcheck_coding_system (coding_system), &coding) < 0)
    error ("Invalid coding system: %s", SDATA (SYMBOL_NAME (coding_system)));

  struct coding_system coding;

  CHECK_STRING (string);
  CHECK_SYMBOL (coding_system);

  if (NILP (coding_system) && system_eol_type == CODING_EOL_LF)
    return string;

  if (setup_coding_system (Fcheck_coding_system (coding_system), &coding) < 0)
    error ("Invalid coding system: %s", SDATA (SYMBOL_NAME (coding_system)));

83516:1321f6cfb389

/* Mnemonic string to indicate format of end-of-line is not yet
   decided.  */
Lisp_Object eol_mnemonic_undecided;

/* Format of end-of-line decided by system.  This is CODING_EOL_LF on
   Unix, CODING_EOL_CRLF on DOS/Windows, and CODING_EOL_CR on Mac.
   This has an effect only for external encoding (i.e. for output to
   file and process), not for in-buffer or Lisp string encoding.  */
int system_eol_type;

#ifdef emacs

/* Information about which coding system is safe for which chars.

 label_invalid_coding_system:
  coding->type = coding_type_no_conversion;
  coding->category_idx = CODING_CATEGORY_IDX_BINARY;
  coding->common_flags = 0;
  coding->eol_type = CODING_EOL_UNDECIDED;
  coding->pre_write_conversion = coding->post_read_conversion = Qnil;
  return NILP (coding_system) ? 0 : -1;
}

/* Free memory blocks allocated for storing composition information.  */

  coding->produced = coding->produced_char = 0;
  coding->consumed = coding->consumed_char = 0;
  coding->errors = 0;
  coding->result = CODING_FINISH_NORMAL;
  if (coding->eol_type == CODING_EOL_UNDECIDED)
    coding->eol_type = CODING_EOL_LF;

  switch (coding->type)
    {
    case coding_type_sjis:
      encode_coding_sjis_big5 (coding, source, destination,

  Lisp_Object translation_table;

  if (coding->type == coding_type_ccl
      || coding->eol_type == CODING_EOL_CRLF
      || coding->eol_type == CODING_EOL_CR
      || (coding->cmp_data && coding->cmp_data->used > 0))
    {
      /* We can't skip any data.  */
      return;
    }

  validate_region (&start, &end);
  from = XFASTINT (start);
  to = XFASTINT (end);

  if (NILP (coding_system))
    return make_number (to - from);

  if (setup_coding_system (Fcheck_coding_system (coding_system), &coding) < 0)
    error ("Invalid coding system: %s", SDATA (SYMBOL_NAME (coding_system)));

  struct coding_system coding;

  CHECK_STRING (string);
  CHECK_SYMBOL (coding_system);

  if (NILP (coding_system))
    return (NILP (nocopy) ? Fcopy_sequence (string) : string);

  if (setup_coding_system (Fcheck_coding_system (coding_system), &coding) < 0)
    error ("Invalid coding system: %s", SDATA (SYMBOL_NAME (coding_system)));

  struct coding_system coding;

  CHECK_STRING (string);
  CHECK_SYMBOL (coding_system);

  if (NILP (coding_system))
    return string;

  if (setup_coding_system (Fcheck_coding_system (coding_system), &coding) < 0)
    error ("Invalid coding system: %s", SDATA (SYMBOL_NAME (coding_system)));