comparison src/coding.c @ 65506:f376635f5061

(code_convert_region_unwind): Argument format changed. (run_pre_post_conversion_on_str): If pre-write-conversion function changed the current buffer, delete the new buffer. (run_pre_write_conversin_on_c_str): Likewise.

65505:f8283f171a8f

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

/* ARG is (CODING . BUFFER) where CODING is what to be set in
   Vlast_coding_system_used and BUFFER if non-nil is a buffer to
   kill.  */
static Lisp_Object
code_convert_region_unwind (arg)
     Lisp_Object arg;
{
  inhibit_pre_post_conversion = 0;
  Vlast_coding_system_used = XCAR (arg);
  if (! NILP (XCDR (arg)))
    Fkill_buffer (XCDR (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

  int count = SPECPDL_INDEX ();
  struct gcpro gcpro1, gcpro2;
  int multibyte = STRING_MULTIBYTE (str);
  Lisp_Object old_deactivate_mark;
  Lisp_Object buffer_to_kill;

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

  /* We must insert the contents of STR as is without
     unibyte<->multibyte conversion.  For that, we adjust the
     multibyteness of the working buffer to that of STR.  */
  buffer_to_kill = set_conversion_work_buffer (multibyte);
  record_unwind_protect (code_convert_region_unwind,
			 Fcons (Vlast_coding_system_used, buffer_to_kill));

  insert_from_string (str, 0, 0,
		      SCHARS (str), SBYTES (str), 0);
  UNGCPRO;
  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));

     int *size, nchars, nbytes;
     struct coding_system *coding;
{
  struct gcpro gcpro1, gcpro2;
  struct buffer *cur = current_buffer;
  Lisp_Object old_deactivate_mark, old_last_coding_system_used;
  Lisp_Object args[3];
  Lisp_Object buffer_to_kill;

  /* It is not crucial to specbind this.  */

     multibyteness of the working buffer to that of STR.  */
  buffer_to_kill = set_conversion_work_buffer (coding->src_multibyte);
  insert_1_both (*str, nchars, nbytes, 0, 0, 0);
  UNGCPRO;
  inhibit_pre_post_conversion = 1;
  args[0] = coding->pre_write_conversion;
  args[1] = make_number (BEG);
  args[2] = make_number (Z);
  safe_call (3, args);
  inhibit_pre_post_conversion = 0;

  if (BEG < GPT && GPT < Z)
    move_gap (BEG);
  bcopy (BEG_ADDR, *str, coding->produced);
  coding->src_multibyte
    = ! NILP (current_buffer->enable_multibyte_characters);
  set_buffer_internal (cur);
  if (! NILP (buffer_to_kill))
    Fkill_buffer (buffer_to_kill);
}

65506:f376635f5061

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

/* ARG is (CODING BUFFER ...) where CODING is what to be set in
   Vlast_coding_system_used and the remaining elements are buffers to
   kill.  */
static Lisp_Object
code_convert_region_unwind (arg)
     Lisp_Object arg;
{
  inhibit_pre_post_conversion = 0;
  Vlast_coding_system_used = XCAR (arg);
  for (arg = XCDR (arg); ! NILP (arg); arg = XCDR (arg))
    Fkill_buffer (XCAR (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

  int count = SPECPDL_INDEX ();
  struct gcpro gcpro1, gcpro2;
  int multibyte = STRING_MULTIBYTE (str);
  Lisp_Object old_deactivate_mark;
  Lisp_Object buffer_to_kill;
  Lisp_Object unwind_arg;

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

  /* We must insert the contents of STR as is without
     unibyte<->multibyte conversion.  For that, we adjust the
     multibyteness of the working buffer to that of STR.  */
  buffer_to_kill = set_conversion_work_buffer (multibyte);
  if (NILP (buffer_to_kill))
    unwind_arg = Fcons (Vlast_coding_system_used, Qnil);
  else
    unwind_arg = list2 (Vlast_coding_system_used, buffer_to_kill);
  record_unwind_protect (code_convert_region_unwind, unwind_arg);

  insert_from_string (str, 0, 0,
		      SCHARS (str), SBYTES (str), 0);
  UNGCPRO;
  inhibit_pre_post_conversion = 1;
  if (encodep)
    {
      struct buffer *prev = current_buffer;

      call2 (coding->pre_write_conversion, make_number (BEG), make_number (Z));
      if (prev != current_buffer)
	/* We must kill the current buffer too.  */
	Fsetcdr (unwind_arg, Fcons (Fcurrent_buffer (), XCDR (unwind_arg)));
    }
  else
    {
      Vlast_coding_system_used = coding->symbol;
      TEMP_SET_PT_BOTH (BEG, BEG_BYTE);
      call1 (coding->post_read_conversion, make_number (Z - BEG));

     int *size, nchars, nbytes;
     struct coding_system *coding;
{
  struct gcpro gcpro1, gcpro2;
  struct buffer *cur = current_buffer;
  struct buffer *prev;
  Lisp_Object old_deactivate_mark, old_last_coding_system_used;
  Lisp_Object args[3];
  Lisp_Object buffer_to_kill;

  /* It is not crucial to specbind this.  */

     multibyteness of the working buffer to that of STR.  */
  buffer_to_kill = set_conversion_work_buffer (coding->src_multibyte);
  insert_1_both (*str, nchars, nbytes, 0, 0, 0);
  UNGCPRO;
  inhibit_pre_post_conversion = 1;
  prev = current_buffer;
  args[0] = coding->pre_write_conversion;
  args[1] = make_number (BEG);
  args[2] = make_number (Z);
  safe_call (3, args);
  inhibit_pre_post_conversion = 0;

  if (BEG < GPT && GPT < Z)
    move_gap (BEG);
  bcopy (BEG_ADDR, *str, coding->produced);
  coding->src_multibyte
    = ! NILP (current_buffer->enable_multibyte_characters);
  if (prev != current_buffer)
    Fkill_buffer (Fcurrent_buffer ());
  set_buffer_internal (cur);
  if (! NILP (buffer_to_kill))
    Fkill_buffer (buffer_to_kill);
}