(set_text_properties): New function. Like

[gnu-emacs] / src / fileio.c

diff --git a/src/fileio.c b/src/fileio.c
index a91b2680ae89d97ac62d219eca464d6d7a912701..7b3084c7aa3a74907dcd2e1301ee7e8e7b3db4c7 100644 (file)
--- a/src/fileio.c
+++ b/src/fileio.c
@@ -3412,7 +3412,7 @@ actually used.")
       st.st_mtime = -1;
       how_much = 0;
       if (!NILP (Vcoding_system_for_read))
-       current_buffer->buffer_file_coding_system = Vcoding_system_for_read;
+       Fset (Qbuffer_file_coding_system, Vcoding_system_for_read);
       goto notfound;
     }