comparison src/coding.c @ 50484:6818550bfbc7

(code_convert_region_unwind): Set Vlast_coding_system_used to the argument. (code_convert_region): If post-read-conversion function changed the value of last-coding-sytem, keep the new value in coding->symbol so that it won't be overridden. (run_pre_post_conversion_on_str): Likewise.

50483:15382232cf57

detect_coding_utf_16 (src, src_end, multibytep)
     unsigned char *src, *src_end;
     int multibytep;
{
  unsigned char c1, c2;
  /* Dummy for TWO_MORE_BYTES.  */
  struct coding_system dummy_coding;
  struct coding_system *coding = &dummy_coding;

  ONE_MORE_BYTE_CHECK_MULTIBYTE (c1, multibytep);
  ONE_MORE_BYTE_CHECK_MULTIBYTE (c2, multibytep);

        else shrink_decoding_region (beg, end, coding, str);		\
      }									\
  } while (0)

static Lisp_Object
code_convert_region_unwind (dummy)
     Lisp_Object dummy;
{
  inhibit_pre_post_conversion = 0;
  return Qnil;
}

/* Store information about all compositions in the range FROM and TO
   of OBJ in memory blocks pointed by CODING->cmp_data.  OBJ is a

      /* The function in pre-write-conversion may put a new text in a
         new buffer.  */
      struct buffer *prev = current_buffer;
      Lisp_Object new;

      record_unwind_protect (code_convert_region_unwind, Qnil);
      /* We should not call any more pre-write/post-read-conversion
         functions while this pre-write-conversion is running.  */
      inhibit_pre_post_conversion = 1;
      call2 (coding->pre_write_conversion,
	     make_number (from), make_number (to));

  if (! inhibit_pre_post_conversion
      && ! encodep && ! NILP (coding->post_read_conversion))
    {
      Lisp_Object val;

      if (from != PT)
	TEMP_SET_PT_BOTH (from, from_byte);
      prev_Z = Z;
      record_unwind_protect (code_convert_region_unwind, Qnil);
      /* We should not call any more pre-write/post-read-conversion
         functions while this post-read-conversion is running.  */
      inhibit_pre_post_conversion = 1;
      val = call1 (coding->post_read_conversion, make_number (inserted));
      inhibit_pre_post_conversion = 0;
      /* Discard the unwind protect.  */
      specpdl_ptr--;
      CHECK_NUMBER (val);
      inserted += Z - prev_Z;
    }

  Lisp_Object buffer;
  struct buffer *buf;
  Lisp_Object old_deactivate_mark;

  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
  record_unwind_protect (code_convert_region_unwind, Qnil);
  /* It is not crucial to specbind this.  */
  old_deactivate_mark = Vdeactivate_mark;
  GCPRO2 (str, old_deactivate_mark);

  buffer = Fget_buffer_create (build_string (" *code-converting-work*"));

  inhibit_pre_post_conversion = 1;
  if (encodep)
    call2 (coding->pre_write_conversion, make_number (BEG), make_number (Z));
  else
    {
      TEMP_SET_PT_BOTH (BEG, BEG_BYTE);
      call1 (coding->post_read_conversion, make_number (Z - BEG));
    }
  inhibit_pre_post_conversion = 0;
  Vdeactivate_mark = old_deactivate_mark;
  str = make_buffer_string (BEG, Z, 1);
  return unbind_to (count, str);

50484:6818550bfbc7

detect_coding_utf_16 (src, src_end, multibytep)
     unsigned char *src, *src_end;
     int multibytep;
{
  unsigned char c1, c2;
  /* Dummy for ONE_MORE_BYTE_CHECK_MULTIBYTE.  */
  struct coding_system dummy_coding;
  struct coding_system *coding = &dummy_coding;

  ONE_MORE_BYTE_CHECK_MULTIBYTE (c1, multibytep);
  ONE_MORE_BYTE_CHECK_MULTIBYTE (c2, multibytep);

        else shrink_decoding_region (beg, end, coding, str);		\
      }									\
  } while (0)

static Lisp_Object
code_convert_region_unwind (arg)
     Lisp_Object arg;
{
  inhibit_pre_post_conversion = 0;
  Vlast_coding_system_used = arg;
  return Qnil;
}

/* Store information about all compositions in the range FROM and TO
   of OBJ in memory blocks pointed by CODING->cmp_data.  OBJ is a

      /* The function in pre-write-conversion may put a new text in a
         new buffer.  */
      struct buffer *prev = current_buffer;
      Lisp_Object new;

      record_unwind_protect (code_convert_region_unwind,
			     Vlatin_extra_code_table);
      /* We should not call any more pre-write/post-read-conversion
         functions while this pre-write-conversion is running.  */
      inhibit_pre_post_conversion = 1;
      call2 (coding->pre_write_conversion,
	     make_number (from), make_number (to));

  if (! inhibit_pre_post_conversion
      && ! encodep && ! NILP (coding->post_read_conversion))
    {
      Lisp_Object val;
      Lisp_Object saved_coding_system;

      if (from != PT)
	TEMP_SET_PT_BOTH (from, from_byte);
      prev_Z = Z;
      record_unwind_protect (code_convert_region_unwind,
			     Vlast_coding_system_used);
      saved_coding_system = Vlast_coding_system_used;
      Vlast_coding_system_used = coding->symbol;
      /* We should not call any more pre-write/post-read-conversion
         functions while this post-read-conversion is running.  */
      inhibit_pre_post_conversion = 1;
      val = call1 (coding->post_read_conversion, make_number (inserted));
      inhibit_pre_post_conversion = 0;
      coding->symbol = Vlast_coding_system_used;
      Vlast_coding_system_used = saved_coding_system;
      /* Discard the unwind protect.  */
      specpdl_ptr--;
      CHECK_NUMBER (val);
      inserted += Z - prev_Z;
    }

  Lisp_Object buffer;
  struct buffer *buf;
  Lisp_Object old_deactivate_mark;

  record_unwind_protect (Fset_buffer, Fcurrent_buffer ());
  record_unwind_protect (code_convert_region_unwind,
			 Vlast_coding_system_used);
  /* It is not crucial to specbind this.  */
  old_deactivate_mark = Vdeactivate_mark;
  GCPRO2 (str, old_deactivate_mark);

  buffer = Fget_buffer_create (build_string (" *code-converting-work*"));

  inhibit_pre_post_conversion = 1;
  if (encodep)
    call2 (coding->pre_write_conversion, make_number (BEG), make_number (Z));
  else
    {
      Vlast_coding_system_used = coding->symbol;
      TEMP_SET_PT_BOTH (BEG, BEG_BYTE);
      call1 (coding->post_read_conversion, make_number (Z - BEG));
      coding->symbol = Vlast_coding_system_used;
    }
  inhibit_pre_post_conversion = 0;
  Vdeactivate_mark = old_deactivate_mark;
  str = make_buffer_string (BEG, Z, 1);
  return unbind_to (count, str);