diff options
| -rw-r--r-- | src/fileio.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/fileio.c b/src/fileio.c index 742c7ad95fe..5c81f0a2088 100644 --- 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; } |