From: Kenichi Handa <handa@m17n.org>
Date: Fri, 12 Jun 1998 08:35:09 +0000 (+0000)
Subject: (Finsert_file_contents): After calling handler,
X-Git-Tag: emacs-20.3~629
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b69a8fdc6cca578ec5947e1965a169359ed07ddc;p=emacs.git

(Finsert_file_contents): After calling handler,
get INSERTED from the handler's value.
---

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;
     }