(Finsert_file_contents): After calling handler,

get INSERTED from the handler's value.

diff --git a/src/fileio.c b/src/fileio.c
index 742c7ad..5c81f0a 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3334,6 +3334,8 @@ actually used.")
     {
       val = call6 (handler, Qinsert_file_contents, filename,
                   visit, beg, end, replace);
+      if (CONSP (val) && CONSP (XCONS (val)->cdr))
+       inserted = XINT (XCONS (XCONS (val)->cdr)->cdr);
       goto handled;
     }