comparison src/coding.c @ 21190:d704dd953837

(code_convert_region): The 6th arg name is changed to REPLACE. Even if there's no need of code conversion, call adjust_after_replace to handle bytes combining.

21189:14e52c1a5d68

   How many characters (and bytes) are converted to how many
   characters (and bytes) are recorded in members of the structure
   CODING.

   If ADJUST is nonzero, we do various things as if the original text
   is deleted and a new text is inserted.  See the comments in
   replace_range (insdel.c) to know what we are doing.

   ADJUST nonzero also means that post-read-conversion or
   pre-write-conversion functions (if any) should be processed.  */

int
code_convert_region (from, from_byte, to, to_byte, coding, encodep, adjust)
     int from, from_byte, to, to_byte, encodep, adjust;
     struct coding_system *coding;
{
  int len = to - from, len_byte = to_byte - from_byte;
  int require, inserted, inserted_byte;
  int from_byte_orig, to_byte_orig;
  Lisp_Object saved_coding_symbol = Qnil;
  int multibyte = !NILP (current_buffer->enable_multibyte_characters);
  int first = 1;
  int fake_multibyte = 0;
  unsigned char *src, *dst;
  int combined_before_bytes = 0, combined_after_bytes = 0;

  if (adjust)
    {
      int saved_from = from;

      prepare_to_modify_buffer (from, to, &from);
      if (saved_from != from)

      : ! CODING_REQUIRE_DECODING (coding))
    {
      coding->produced = len_byte;
      if (multibyte)
	{
	  if (GPT < from || GPT > to)
	    move_gap_both (from, from_byte);
	  coding->produced_char
	    = multibyte_chars_in_text (BYTE_POS_ADDR (from_byte), len_byte);
	}
      else
	coding->produced_char = len_byte;
      return 0;
    }

  if (GAP_SIZE  < require)
    make_gap (require - GAP_SIZE);
  move_gap_both (from, from_byte);

  if (adjust)
    adjust_before_replace (from, from_byte, to, to_byte);

  if (GPT - BEG < beg_unchanged)
    beg_unchanged = GPT - BEG;
  if (Z - GPT < end_unchanged)

	     NEW bytes (coding->produced).  To convert the remaining
	     LEN bytes, we may need REQUIRE bytes of gap, where:
		REQUIRE + LEN_BYTE = LEN_BYTE * (NEW / ORIG)
		REQUIRE = LEN_BYTE * (NEW - ORIG) / ORIG
	     Here, we are sure that NEW >= ORIG.  */
	  require = (len_byte * (coding->produced - coding->consumed)
		     / coding->consumed);
	  first = 0;
	}
      if ((src - dst) < (require + 2000))
	{
	  /* See the comment above the previous call of make_gap.  */

  if (multibyte
      && (fake_multibyte || !encodep && (to - from) != (to_byte - from_byte)))
    inserted = multibyte_chars_in_text (GPT_ADDR, inserted_byte);

  adjust_after_replace (from, from_byte, to, to_byte,
			inserted, inserted_byte);
  if (from_byte_orig == from_byte)
    from_byte_orig = from_byte = PT_BYTE;

  if (! encodep && ! NILP (coding->post_read_conversion))
    {

21190:d704dd953837

   How many characters (and bytes) are converted to how many
   characters (and bytes) are recorded in members of the structure
   CODING.

   If REPLACE is nonzero, we do various things as if the original text
   is deleted and a new text is inserted.  See the comments in
   replace_range (insdel.c) to know what we are doing.  */

int
code_convert_region (from, from_byte, to, to_byte, coding, encodep, replace)
     int from, from_byte, to, to_byte, encodep, replace;
     struct coding_system *coding;
{
  int len = to - from, len_byte = to_byte - from_byte;
  int require, inserted, inserted_byte;
  int from_byte_orig, to_byte_orig;
  Lisp_Object saved_coding_symbol = Qnil;
  int multibyte = !NILP (current_buffer->enable_multibyte_characters);
  int first = 1;
  int fake_multibyte = 0;
  unsigned char *src, *dst;

  if (replace)
    {
      int saved_from = from;

      prepare_to_modify_buffer (from, to, &from);
      if (saved_from != from)

      : ! CODING_REQUIRE_DECODING (coding))
    {
      coding->produced = len_byte;
      if (multibyte)
	{
	  /* We still may have to combine byte at the head and the
             tail of the text in the region.  */
	  if (GPT != to)
	    move_gap_both (to, to_byte);
	  coding->produced_char
	    = multibyte_chars_in_text (BYTE_POS_ADDR (from_byte), len_byte);
	  GAP_SIZE += len_byte;
	  GPT_BYTE -= len_byte;
	  ZV_BYTE -= len_byte;
	  Z_BYTE -= len_byte;
	  GPT -= len_byte;
	  ZV -= len_byte;
	  Z -= len_byte;
	  adjust_after_replace (from, from_byte, to, to_byte,
				coding->produced_char, len_byte, replace);
	}
      else
	coding->produced_char = len_byte;
      return 0;
    }

  if (GAP_SIZE  < require)
    make_gap (require - GAP_SIZE);
  move_gap_both (from, from_byte);

  if (replace)
    adjust_before_replace (from, from_byte, to, to_byte);

  if (GPT - BEG < beg_unchanged)
    beg_unchanged = GPT - BEG;
  if (Z - GPT < end_unchanged)

	     NEW bytes (coding->produced).  To convert the remaining
	     LEN bytes, we may need REQUIRE bytes of gap, where:
		REQUIRE + LEN_BYTE = LEN_BYTE * (NEW / ORIG)
		REQUIRE = LEN_BYTE * (NEW - ORIG) / ORIG
	     Here, we are sure that NEW >= ORIG.  */
	  float ratio = coding->produced - coding->consumed;
	  ratio /= coding->consumed;
	  require = len_byte * ratio;
	  first = 0;
	}
      if ((src - dst) < (require + 2000))
	{
	  /* See the comment above the previous call of make_gap.  */

  if (multibyte
      && (fake_multibyte || !encodep && (to - from) != (to_byte - from_byte)))
    inserted = multibyte_chars_in_text (GPT_ADDR, inserted_byte);

  adjust_after_replace (from, from_byte, to, to_byte,
			inserted, inserted_byte, replace);
  if (from_byte_orig == from_byte)
    from_byte_orig = from_byte = PT_BYTE;

  if (! encodep && ! NILP (coding->post_read_conversion))
    {