changeset 50530:987ee3ecc0a8

* fileio.c (Vafter_insert_file_adjust_coding_function): New variable. (syms_of_fileio): Declare it as a lisp variable. (Finsert_file_contents): Call Vafter_insert_file_adjust_coding_function before calling decode-format.

--- a/src/fileio.c	Thu Apr 10 11:59:45 2003 +0000
+++ b/src/fileio.c	Thu Apr 10 12:01:10 2003 +0000
@@ -177,6 +177,10 @@
 /* Functions to be called to process text properties in inserted file.  */
 Lisp_Object Vafter_insert_file_functions;
 
+/* Function to be called to adjust buffer-file-coding-system and the
+   multibyteness of the current buffer after inserting a file.  */
+Lisp_Object Vafter_insert_file_adjust_coding_function;
+
 /* Functions to be called to create text property annotations for file.  */
 Lisp_Object Vwrite_region_annotate_functions;
 
@@ -4540,6 +4544,20 @@
 			Fcons (orig_filename, Qnil)));
     }
 
+  if (set_coding_system)
+    Vlast_coding_system_used = coding.symbol;
+
+  if (FUNCTIONP (Vafter_insert_file_adjust_coding_function))
+    {
+      insval = call1 (Vafter_insert_file_adjust_coding_function,
+		      make_number (inserted));
+      if (! NILP (insval))
+	{
+	  CHECK_NUMBER (insval);
+	  inserted = XFASTINT (insval);
+	}
+    }
+
   /* Decode file format */
   if (inserted > 0)
     {
@@ -4563,9 +4581,6 @@
 	current_buffer->undo_list = empty_undo_list_p ? Qnil : Qt;
     }
 
-  if (set_coding_system)
-    Vlast_coding_system_used = coding.symbol;
-
   /* Call after-change hooks for the inserted text, aside from the case
      of normal visiting (not with REPLACE), which is done in a new buffer
      "before" the buffer is changed.  */
@@ -6414,6 +6429,14 @@
 or local variable spec of the tailing lines with `coding:' tag.  */);
   Vset_auto_coding_function = Qnil;
 
+  DEFVAR_LISP ("after-insert-file-adjust-coding-function",
+	       &Vafter_insert_file_adjust_coding_function,
+	       doc: /* Function to call to adjust buffer-file-coding-system after inserting a file.
+The function is called with one arguemnt, the number of characters inserted.
+It should adjust `buffer-file-coding-system' and the multibyteness of
+the current buffer, and return the new character count.  */);
+  Vafter_insert_file_adjust_coding_function = Qnil;
+
   DEFVAR_LISP ("after-insert-file-functions", &Vafter_insert_file_functions,
 	       doc: /* A list of functions to be called at the end of `insert-file-contents'.
 Each is passed one argument, the number of characters inserted.