Mercurial > emacs
comparison src/fileio.c @ 90631:b14bb2d35e4f
(Finsert_file_contents): On replacing, temporarily bind
buffer-file-name to Qnil before calling insert_from_buffer.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 23 Oct 2006 12:40:32 +0000 |
parents | 6823a91487f2 |
children | aa6d1499ee0a |
comparison
equal
deleted
inserted
replaced
90630:59f79772323b | 90631:b14bb2d35e4f |
---|---|
4358 same_at_start); | 4358 same_at_start); |
4359 inserted_chars | 4359 inserted_chars |
4360 = (buf_bytepos_to_charpos (XBUFFER (conversion_buffer), | 4360 = (buf_bytepos_to_charpos (XBUFFER (conversion_buffer), |
4361 same_at_start + inserted) | 4361 same_at_start + inserted) |
4362 - same_at_start_charpos); | 4362 - same_at_start_charpos); |
4363 /* This binding is to avoid ask-user-about-supersession-threat | |
4364 being called in insert_from_buffer (via in | |
4365 prepare_to_modify_buffer). */ | |
4366 specbind (intern ("buffer-file-name"), Qnil); | |
4363 insert_from_buffer (XBUFFER (conversion_buffer), | 4367 insert_from_buffer (XBUFFER (conversion_buffer), |
4364 same_at_start_charpos, inserted_chars, 0); | 4368 same_at_start_charpos, inserted_chars, 0); |
4365 /* Set `inserted' to the number of inserted characters. */ | 4369 /* Set `inserted' to the number of inserted characters. */ |
4366 inserted = PT - temp; | 4370 inserted = PT - temp; |
4367 /* Set point before the inserted characters. */ | 4371 /* Set point before the inserted characters. */ |