]> code.delx.au - gnu-emacs/commitdiff
(Finsert_file_contents): Don't use
authorKenichi Handa <handa@m17n.org>
Thu, 30 Dec 2004 12:28:41 +0000 (12:28 +0000)
committerKenichi Handa <handa@m17n.org>
Thu, 30 Dec 2004 12:28:41 +0000 (12:28 +0000)
current_buffer->buffer_file_coding_system even if REPLACE is
non-nil.  Call Qafter_insert_file_set_coding with the second arg
VISIT.

src/fileio.c

index 3ad87ebe667c278ccd91350c7359373f8ec46790..a3bb5aab62e4efccb65aedd580c5571f6f68d3ac 100644 (file)
@@ -3861,10 +3861,6 @@ actually used.  */)
 
       if (!NILP (Vcoding_system_for_read))
        val = Vcoding_system_for_read;
-      else if (! NILP (replace))
-       /* In REPLACE mode, we can use the same coding system
-          that was used to visit the file.  */
-       val = current_buffer->buffer_file_coding_system;
       else
        {
          /* Don't try looking inside a file for a coding system
@@ -4643,7 +4639,8 @@ actually used.  */)
 
   if (! NILP (Ffboundp (Qafter_insert_file_set_coding)))
     {
-      insval = call1 (Qafter_insert_file_set_coding, make_number (inserted));
+      insval = call2 (Qafter_insert_file_set_coding, make_number (inserted),
+                     visit);
       if (! NILP (insval))
        {
          CHECK_NUMBER (insval);