comparison src/coding.c @ 90231:8be9e4c6d687

(encode_coding_object): If a pre-write-conversion function makes a new buffer, kill it.

90230:fa744c8b8632

  EMACS_INT chars = to - from;
  EMACS_INT bytes = to_byte - from_byte;
  Lisp_Object attrs;
  Lisp_Object buffer;
  int saved_pt = -1, saved_pt_byte;

  buffer = Fcurrent_buffer ();

  coding->src_object = src_object;
  coding->src_chars = chars;

	args[0] = CODING_ATTR_PRE_WRITE (attrs);
	args[1] = make_number (BEG);
	args[2] = make_number (Z);
	safe_call (3, args);
      }
      coding->src_object = Fcurrent_buffer ();
      if (BEG != GPT)
	move_gap_both (BEG, BEG_BYTE);
      coding->src_chars = Z - BEG;
      coding->src_bytes = Z_BYTE - BEG_BYTE;

      else
	TEMP_SET_PT_BOTH (saved_pt + (coding->produced - bytes),
			  saved_pt_byte + (coding->produced - bytes));
    }

  unbind_to (count, Qnil);
}


Lisp_Object

90231:8be9e4c6d687

  EMACS_INT chars = to - from;
  EMACS_INT bytes = to_byte - from_byte;
  Lisp_Object attrs;
  Lisp_Object buffer;
  int saved_pt = -1, saved_pt_byte;
  int kill_src_buffer = 0;

  buffer = Fcurrent_buffer ();

  coding->src_object = src_object;
  coding->src_chars = chars;

	args[0] = CODING_ATTR_PRE_WRITE (attrs);
	args[1] = make_number (BEG);
	args[2] = make_number (Z);
	safe_call (3, args);
      }
      if (XBUFFER (coding->src_object) != current_buffer)
	kill_src_buffer = 1;
      coding->src_object = Fcurrent_buffer ();
      if (BEG != GPT)
	move_gap_both (BEG, BEG_BYTE);
      coding->src_chars = Z - BEG;
      coding->src_bytes = Z_BYTE - BEG_BYTE;

      else
	TEMP_SET_PT_BOTH (saved_pt + (coding->produced - bytes),
			  saved_pt_byte + (coding->produced - bytes));
    }

  if (kill_src_buffer)
    Fkill_buffer (coding->src_object);
  unbind_to (count, Qnil);
}


Lisp_Object