* 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.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/casefiddle.c b/src/casefiddle.c
index 24f63637bf1..113885fad69 100644
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -265,7 +265,7 @@ casify_region (flag, b, e)
                   error ("Can't casify letters that change length");
 #if 0 /* This is approximately what we'd like to be able to do here */
                   if (tolen < fromlen)
-                    del_range_1 (i + tolen, i + fromlen, 0);
+                    del_range_1 (i + tolen, i + fromlen, 0, 0);
                   else if (tolen > fromlen)
                     {
                       TEMP_SET_PT (i + fromlen);