From: Kenichi Handa <handa@m17n.org>
Date: Mon, 23 Oct 2006 12:40:32 +0000 (+0000)
Subject: (Finsert_file_contents): On replacing, temporarily bind
X-Git-Tag: emacs-pretest-23.0.90~8295^2~719
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d07af40d882673ccb30c267a617e673c22a85ee4;p=emacs.git

(Finsert_file_contents): On replacing, temporarily bind
buffer-file-name to Qnil before calling insert_from_buffer.
---

diff --git a/src/fileio.c b/src/fileio.c
index e45f9d59061..52a62cebe9c 100644
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -4360,6 +4360,10 @@ actually used.  */)
 	= (buf_bytepos_to_charpos (XBUFFER (conversion_buffer),
 				   same_at_start + inserted)
 	   - same_at_start_charpos);
+      /* This binding is to avoid ask-user-about-supersession-threat
+	 being called in insert_from_buffer (via in
+	 prepare_to_modify_buffer).  */
+      specbind (intern ("buffer-file-name"), Qnil);
       insert_from_buffer (XBUFFER (conversion_buffer),
 			  same_at_start_charpos, inserted_chars, 0);
       /* Set `inserted' to the number of inserted characters.  */