comparison src/coding.c @ 26742:936b39bd05b4

* editfns.c (Fdelete_and_extract_region): New function. (syms_of_editfns): register it. * insdel.c (del_range): update del_range_1 call. (del_range_1, del_range_2): Add a ret_string argument to request that the deleted text be returned. (del_range_byte, del_range_both): Update del_range_2 call. * lisp.h (del_range_1, del_range_2): change prototype * casefiddle.c (casify_region): Update del_range_1 call. * coding.c (code_convert_region): Update del_range_2 call. * fileio.c (Finsert_file_contents): Update del_range_2 call.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Tue, 07 Dec 1999 04:42:40 +0000
parents b7438760079b
children 2f17ea330dae
comparison
equal deleted inserted replaced
26741:f8cf4dd95449 26742:936b39bd05b4
4385 if (current_buffer != prev) 4385 if (current_buffer != prev)
4386 { 4386 {
4387 len = ZV - BEGV; 4387 len = ZV - BEGV;
4388 new = Fcurrent_buffer (); 4388 new = Fcurrent_buffer ();
4389 set_buffer_internal_1 (prev); 4389 set_buffer_internal_1 (prev);
4390 del_range_2 (from, from_byte, to, to_byte); 4390 del_range_2 (from, from_byte, to, to_byte, 0);
4391 TEMP_SET_PT_BOTH (from, from_byte); 4391 TEMP_SET_PT_BOTH (from, from_byte);
4392 insert_from_buffer (XBUFFER (new), 1, len, 0); 4392 insert_from_buffer (XBUFFER (new), 1, len, 0);
4393 Fkill_buffer (new); 4393 Fkill_buffer (new);
4394 if (orig_point >= to) 4394 if (orig_point >= to)
4395 orig_point += len - orig_len; 4395 orig_point += len - orig_len;