comparison src/fileio.c @ 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.

50529:6f2a35c77d07

/* Function to be called to decide a coding system of a reading file.  */
Lisp_Object Vset_auto_coding_function;

/* Functions to be called to process text properties in inserted file.  */
Lisp_Object Vafter_insert_file_functions;

/* Functions to be called to create text property annotations for file.  */
Lisp_Object Vwrite_region_annotate_functions;

/* During build_annotations, each time an annotation function is called,

	Fsignal (Qfile_error,
		 Fcons (build_string ("not a regular file"),
			Fcons (orig_filename, Qnil)));
    }

  /* Decode file format */
  if (inserted > 0)
    {
      int empty_undo_list_p = 0;

      inserted = XFASTINT (insval);

      if (!NILP (visit))
	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.  */
  if (inserted > 0 && total > 0

If no coding system is decided, it should check a coding system
specified in the heading lines with the format:
	-*- ... coding: CODING-SYSTEM; ... -*-
or local variable spec of the tailing lines with `coding:' tag.  */);
  Vset_auto_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.
It should return the new character count, and leave point the same.

50530:987ee3ecc0a8

/* Function to be called to decide a coding system of a reading file.  */
Lisp_Object Vset_auto_coding_function;

/* 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;

/* During build_annotations, each time an annotation function is called,

	Fsignal (Qfile_error,
		 Fcons (build_string ("not a regular file"),
			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)
    {
      int empty_undo_list_p = 0;

      inserted = XFASTINT (insval);

      if (!NILP (visit))
	current_buffer->undo_list = empty_undo_list_p ? Qnil : Qt;
    }

  /* 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.  */
  if (inserted > 0 && total > 0

If no coding system is decided, it should check a coding system
specified in the heading lines with the format:
	-*- ... coding: CODING-SYSTEM; ... -*-
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.
It should return the new character count, and leave point the same.