# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 897062531 0
# Node ID e845baca3407014f421eefadabd49b39b3020f61
# Parent  841b8916e3b2306a6e86f497db508db20f7912c3
(Finsert_file_contents): Always update
Vlast_coding_system_used when we actually perform IO.
(Fwrite_region): Update documentation.

diff -r 841b8916e3b2 -r e845baca3407 src/fileio.c
--- a/src/fileio.c	Fri Jun 05 15:57:58 1998 +0000
+++ b/src/fileio.c	Fri Jun 05 16:02:11 1998 +0000
@@ -3266,10 +3266,11 @@
 and (2) it puts less data in the undo list.\n\
 When REPLACE is non-nil, the value is the number of characters actually read,\n\
 which is often less than the number of characters to be read.\n\
+\n\
 This does code conversion according to the value of\n\
-  `coding-system-for-read' or `file-coding-system-alist',\n\
-  and sets the variable `last-coding-system-used' to the coding system\n\
-  actually used.")
+`coding-system-for-read' or `file-coding-system-alist',\n\
+and sets the variable `last-coding-system-used' to the coding system\n\
+actually used.")
   (filename, visit, beg, end, replace)
      Lisp_Object filename, visit, beg, end, replace;
 {
@@ -3542,6 +3543,9 @@
       }
     else
       setup_coding_system (Fcheck_coding_system (val), &coding);
+
+    /* Ensure we always set Vlast_coding_system_used.  */
+    set_coding_system = 1;
   }
 
   /* If requested, replace the accessible part of the buffer
@@ -4029,8 +4033,6 @@
 #endif
     }
 
-  set_coding_system = 1;
-
  notfound:
  handled:
 
@@ -4157,7 +4159,13 @@
 The optional seventh arg CONFIRM, if non-nil, says ask for confirmation\n\
   before overwriting an existing file.\n\
 Kludgy feature: if START is a string, then that string is written\n\
-to the file, instead of any buffer contents, and END is ignored.")
+to the file, instead of any buffer contents, and END is ignored.\n\
+\n\
+This does code conversion according to the value of\n\
+`coding-system-for-write', `buffer-file-coding-system', or\n\
+`file-coding-system-alist', and sets the variable\n\
+`last-coding-system-used' to the coding system actually used.")
+
   (start, end, filename, append, visit, lockname, confirm)
      Lisp_Object start, end, filename, append, visit, lockname, confirm;
 {