comparison src/fileio.c @ 20533:60b9e88f8743

(Finsert_file_contents): Update call to CHAR_HEAD_P. (Fwrite_region): Use scan_newline. (restore_point_unwind): Now static. Use Fgoto_char. (Funhandled_file_name_directory): Doc fix. (Finsert_file_contents): Handle bytes vs chars. (Fwrite_region): Handle bytes vs chars. (a_write): Take args in bytes; handle annotations labeled in chars. (e_write): Rename args. (Funhandled_file_name_directory): Doc fix. (a_write, e_write): Now static.

20532:7ffd3d9afeb4

Lisp_Object Qfile_name_history;

Lisp_Object Qcar_less_than_car;

void
report_file_error (string, data)
     char *string;
     Lisp_Object data;
{

  return Qnil;
}

/* Restore point, having saved it as a marker.  */

Lisp_Object
restore_point_unwind (location)
     Lisp_Object location;
{
  SET_PT (marker_position (location));
  Fset_marker (location, Qnil, Qnil);
  return Qnil;
}

Lisp_Object Qexpand_file_name;

DEFUN ("unhandled-file-name-directory", Funhandled_file_name_directory, Sunhandled_file_name_directory, 1, 1, 0,
  "Return a directly usable directory name somehow associated with FILENAME.\n\
A `directly usable' directory name is one that may be used without the\n\
intervention of any file handler.\n\
If FILENAME is a directly usable file itself, return\n\
(file-name-directory FILENAME).\n\
The `call-process' and `start-process' functions use this function to\n\
get a current directory to run processes in.")
  (filename)
    Lisp_Object filename;
{

#endif

DEFUN ("insert-file-contents", Finsert_file_contents, Sinsert_file_contents,
  1, 5, 0,
  "Insert contents of file FILENAME after point.\n\
Returns list of absolute file name and length of data inserted.\n\
If second argument VISIT is non-nil, the buffer's visited filename\n\
and last save file modtime are set, and it is marked unmodified.\n\
If visiting and the file does not exist, visiting is completed\n\
before the error is signaled.\n\
The optional third and fourth arguments BEG and END\n\
specify what portion of the file to insert.\n\
If VISIT is non-nil, BEG and END must be nil.\n\
\n\
If optional fifth argument REPLACE is non-nil,\n\
it means replace the current buffer contents (in the accessible portion)\n\
with the file contents.  This is better than simply deleting and inserting\n\

  (filename, visit, beg, end, replace)
     Lisp_Object filename, visit, beg, end, replace;
{
  struct stat st;
  register int fd;
  register int inserted = 0;
  register int how_much;
  register int unprocessed;
  int count = specpdl_ptr - specpdl;
  struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
  Lisp_Object handler, val, insval, orig_filename;

  int not_regular = 0;
  char read_buf[READ_BUF_SIZE];
  struct coding_system coding;
  unsigned char buffer[1 << 14];
  int replace_handled = 0;

  if (current_buffer->base_buffer && ! NILP (visit))
    error ("Cannot do file visiting in an indirect buffer");

  if (!NILP (current_buffer->read_only))

     But if we discover the need for conversion, we give up on this method
     and let the following if-statement handle the replace job.  */
  if (!NILP (replace)
      && ! CODING_REQUIRE_DECODING (&coding))
    {
      int same_at_start = BEGV;
      int same_at_end = ZV;
      int overlap;
      /* There is still a possibility we will find the need to do code
	 conversion.  If that happens, we set this variable to 1 to
	 give up on handling REPLACE in the optimized way.  */
      int giveup_match_end = 0;

	      giveup_match_end = 1;
	      break;
	    }

	  bufpos = 0;
	  while (bufpos < nread && same_at_start < ZV
		 && FETCH_BYTE (same_at_start) == buffer[bufpos])
	    same_at_start++, bufpos++;
	  /* If we found a discrepancy, stop the scan.
	     Otherwise loop around and scan the next bufferful.  */
	  if (bufpos != nread)
	    break;
	}
      immediate_quit = 0;
      /* If the file matches the buffer completely,
	 there's no need to replace anything.  */
      if (same_at_start - BEGV == XINT (end))
	{
	  close (fd);
	  specpdl_ptr--;
	  /* Truncate the buffer to the size of the file.  */
	  del_range_1 (same_at_start, same_at_end, 0);

      while (!giveup_match_end)
	{
	  int total_read, nread, bufpos, curpos, trial;

	  /* At what file position are we now scanning?  */
	  curpos = XINT (end) - (ZV - same_at_end);
	  /* If the entire file matches the buffer tail, stop the scan.  */
	  if (curpos == 0)
	    break;
	  /* How much can we scan in the next step?  */
	  trial = min (curpos, sizeof buffer);

	}
      immediate_quit = 0;

      if (! giveup_match_end)
	{
	  /* We win!  We can handle REPLACE the optimized way.  */

	  /* Extends the end of non-matching text area to multibyte
             character boundary.  */
	  if (! NILP (current_buffer->enable_multibyte_characters))
	    while (same_at_end < ZV && ! CHAR_HEAD_P (POS_ADDR (same_at_end)))
	      same_at_end++;

	  /* Don't try to reuse the same piece of text twice.  */
	  overlap = same_at_start - BEGV - (same_at_end + st.st_size - ZV);
	  if (overlap > 0)
	    same_at_end += overlap;

	  /* Arrange to read only the nonmatching middle part of the file.  */
	  XSETFASTINT (beg, XINT (beg) + (same_at_start - BEGV));
	  XSETFASTINT (end, XINT (end) - (ZV - same_at_end));

	  del_range_1 (same_at_start, same_at_end, 0);
	  /* Insert from the file at the proper position.  */
	  SET_PT (same_at_start);

	  /* If display currently starts at beginning of line,
	     keep it that way.  */
	  if (XBUFFER (XWINDOW (selected_window)->buffer) == current_buffer)
	    XWINDOW (selected_window)->start_at_line_beg = Fbolp ();

     is needed, in a simple way that needs a lot of memory.
     The preceding if-statement handles the case of no conversion
     in a more optimized way.  */
  if (!NILP (replace) && ! replace_handled)
    {
      int same_at_start = BEGV;
      int same_at_end = ZV;
      int overlap;
      int bufpos;
      /* Make sure that the gap is large enough.  */
      int bufsize = 2 * st.st_size;
      unsigned char *conversion_buffer = (unsigned char *) xmalloc (bufsize);

      /* First read the whole file, performing code conversion into
	 CONVERSION_BUFFER.  */

      if (lseek (fd, XINT (beg), 0) < 0)

      while (bufpos > 0 && same_at_end > same_at_start
	     && FETCH_BYTE (same_at_end - 1) == conversion_buffer[bufpos - 1])
	same_at_end--, bufpos--;

      /* Don't try to reuse the same piece of text twice.  */
      overlap = same_at_start - BEGV - (same_at_end + inserted - ZV);
      if (overlap > 0)
	same_at_end += overlap;

      /* If display currently starts at beginning of line,
	 keep it that way.  */

	XWINDOW (selected_window)->start_at_line_beg = Fbolp ();

      /* Replace the chars that we need to replace,
	 and update INSERTED to equal the number of bytes
	 we are taking from the file.  */
      inserted -= (Z - same_at_end) + (same_at_start - BEG);
      move_gap (same_at_start);
      del_range_1 (same_at_start, same_at_end, 0);
      SET_PT (same_at_start);
      insert_1 (conversion_buffer + same_at_start - BEG, inserted, 0, 0);

      free (conversion_buffer);
      close (fd);
      specpdl_ptr--;

    {
	/* try is reserved in some compilers (Microsoft C) */
      int trytry = min (total - how_much, READ_BUF_SIZE - unprocessed);
      char *destination = (! (CODING_REQUIRE_DECODING (&coding)
			      || CODING_REQUIRE_DETECTION (&coding))
			   ? (char *) (POS_ADDR (PT + inserted - 1) + 1)
			   : read_buf + unprocessed);
      int this;

      /* Allow quitting out of the actual I/O.  */
      immediate_quit = 1;
      QUIT;
      this = read (fd, destination, trytry);

	 so don't bother counting in HOW_MUCH.
	 (INSERTED is where we count the number of characters inserted.)  */
      if (! not_regular)
	how_much += this;

      if (CODING_REQUIRE_DECODING (&coding)
	  || CODING_REQUIRE_DETECTION (&coding))
	{
	  int require, produced, consumed;

	      if (this == 0)
		coding.last_block = 1;
	    }

	  produced = decode_coding (&coding, read_buf,
				    POS_ADDR (PT + inserted - 1) + 1,
				    this, GAP_SIZE, &consumed);
	  if (produced > 0) 
	    {
	      Lisp_Object temp;

	      XSET (temp, Lisp_Int, Z + produced);
	      if (Z + produced != XINT (temp))
		{
		  how_much = -2;
		  break;
		}
	    }
	  unprocessed = this - consumed;
	  bcopy (read_buf + consumed, read_buf, unprocessed);
	  this = produced;
	}

      GPT += this;
      GAP_SIZE -= this;
      ZV += this;
      Z += this;
      if (GAP_SIZE > 0)
	/* Put an anchor to ensure multi-byte form ends at gap.  */
	*GPT_ADDR = 0;
      inserted += this;
    }


#ifdef DOS_NT
  /* Use the conversion type to determine buffer-file-type
     (find-buffer-file-type is now used to help determine the
     conversion).  */

    current_buffer->buffer_file_type = Qnil;
  else
    current_buffer->buffer_file_type = Qt;
#endif

  /* We don't have to consider file type of MSDOS because all files
     are read as binary and end-of-line format has already been
     decoded appropriately.  */
#if 0
#ifdef DOS_NT
  /* Demacs 1.1.1 91/10/16 HIRANO Satoshi, MW July 1993 */
  /* Determine file type from name and remove LFs from CR-LFs if the file
     is deemed to be a text file.  */
  {
    current_buffer->buffer_file_type
      = call1 (Qfind_buffer_file_type, orig_filename);
    if (NILP (current_buffer->buffer_file_type))
      {
	int reduced_size
	  = inserted - crlf_to_lf (inserted, POS_ADDR (PT - 1) + 1);
	ZV -= reduced_size;
	Z -= reduced_size;
	GPT -= reduced_size;
	GAP_SIZE += reduced_size;
	inserted -= reduced_size;
      }
  }
#endif /* DOS_NT */
#endif /* 0 */

  if (inserted > 0)
    {
      record_insert (PT, inserted);

      /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */
      offset_intervals (current_buffer, PT, inserted);
      MODIFF++;
    }

  close (fd);

    error ("IO error reading %s: %s",
	   XSTRING (orig_filename)->data, strerror (errno));
  else if (how_much == -2)
    error ("maximum buffer size exceeded");

 notfound:
 handled:

  if (!NILP (visit))
    {

      if (current_buffer->modtime == -1)
	report_file_error ("Opening input file", Fcons (orig_filename, Qnil));
    }

  /* Decode file format */
  if (inserted > 0)
    {
      insval = call3 (Qformat_decode,
		      Qnil, make_number (inserted), visit);
      CHECK_NUMBER (insval, 0);
      inserted = XFASTINT (insval);
    }

  /* 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
      && (NILP (visit) || !NILP (replace)))
    signal_after_change (PT, 0, inserted);

  Vlast_coding_system_used = coding.symbol;

  if (inserted > 0)
    {
      p = Vafter_insert_file_functions;
      if (!NILP (coding.post_read_conversion))
	p = Fcons (coding.post_read_conversion, p);

      while (!NILP (p))
	{
	  insval = call1 (Fcar (p), make_number (inserted));
	  if (!NILP (insval))
	    {
	      CHECK_NUMBER (insval, 0);
	      inserted = XFASTINT (insval);
	    }
	  QUIT;
	  p = Fcdr (p);
	}
    }

  if (NILP (val))
    val = Fcons (orig_filename,
		 Fcons (make_number (inserted),
			Qnil));

  RETURN_UNGCPRO (unbind_to (count, val));
}

static Lisp_Object build_annotations ();
extern Lisp_Object Ffile_locked_p ();

/* If build_annotations switched buffers, switch back to BUF.
   Kill the temporary buffer that was selected in the meantime.

   Since this kill only the last temporary buffer, some buffers remain

     when we must put designation sequences at beginning of line.  */
  if (INTEGERP (start)
      && coding.type == coding_type_iso2022
      && coding.flags & CODING_FLAG_ISO_DESIGNATE_AT_BOL
      && GPT > BEG && GPT_ADDR[-1] != '\n')
    move_gap (find_next_newline (GPT, 1));
#endif

  failure = 0;
  immediate_quit = 1;

			     XSTRING (start)->size, 0, &annotations, &coding);
      save_errno = errno;
    }
  else if (XINT (start) != XINT (end))
    {
      int nwritten = 0;
      if (XINT (start) < GPT)
	{
	  register int end1 = XINT (end);
	  tem = XINT (start);
	  failure = 0 > a_write (desc, POS_ADDR (tem),
				 min (GPT, end1) - tem, tem, &annotations,
				 &coding);
	  nwritten += min (GPT, end1) - tem;
	  save_errno = errno;
	}

      if (XINT (end) > GPT && !failure)
	{
	  tem = XINT (start);
	  tem = max (tem, GPT);
	  failure = 0 > a_write (desc, POS_ADDR (tem), XINT (end) - tem,
				 tem, &annotations, &coding);
	  nwritten += XINT (end) - tem;
	  save_errno = errno;
	}
    }
  else
    {

  if (!auto_saving)
    message ("Wrote %s", XSTRING (visit_file)->data);

  return Qnil;
}

Lisp_Object merge ();

DEFUN ("car-less-than-car", Fcar_less_than_car, Scar_less_than_car, 2, 2, 0,
  "Return t if (car A) is numerically less than (car B).")
  (a, b)

    }

  UNGCPRO;
  return annotations;
}

/* Write to descriptor DESC the LEN characters starting at ADDR,
   assuming they start at position POS in the buffer.
   Intersperse with them the annotations from *ANNOT
   (those which fall within the range of positions POS to POS + LEN),
   each at its appropriate position.

   Modify *ANNOT by discarding elements as we output them.
   The return value is negative in case of system call failure.  */

int
a_write (desc, addr, len, pos, annot, coding)
     int desc;
     register char *addr;
     register int len;
     int pos;
     Lisp_Object *annot;
     struct coding_system *coding;
{
  Lisp_Object tem;
  int nextpos;
  int lastpos = pos + len;

  while (NILP (*annot) || CONSP (*annot))
    {
      tem = Fcar_safe (Fcar (*annot));
      if (INTEGERP (tem) && XINT (tem) >= pos && XFASTINT (tem) <= lastpos)
	nextpos = XFASTINT (tem);
      else
	return e_write (desc, addr, lastpos - pos, coding);
      if (nextpos > pos)
	{
	  if (0 > e_write (desc, addr, nextpos - pos, coding))
	    return -1;
	  addr += nextpos - pos;
	  pos = nextpos;
	}
      tem = Fcdr (Fcar (*annot));
      if (STRINGP (tem))
	{
	  if (0 > e_write (desc, XSTRING (tem)->data, XSTRING (tem)->size,
			   coding))

#ifndef WRITE_BUF_SIZE
#define WRITE_BUF_SIZE (16 * 1024)
#endif

int
e_write (desc, addr, len, coding)
     int desc;
     register char *addr;
     register int len;
     struct coding_system *coding;
{
  char buf[WRITE_BUF_SIZE];
  int produced, consumed;

  /* We used to have a code for handling selective display here.  But,
     now it is handled within encode_coding.  */
  while (1)
    {
      produced = encode_coding (coding, addr, buf, len, WRITE_BUF_SIZE,
				&consumed);
      len -= consumed, addr += consumed;
      if (produced > 0)
	{
	  produced -= write (desc, buf, produced);
	  if (produced) return -1;
	}
      if (len <= 0)
	break;
    }
  return 0;
}

DEFUN ("verify-visited-file-modtime", Fverify_visited_file_modtime,
  Sverify_visited_file_modtime, 1, 1, 0,
  "Return t if last mod time of BUF's visited file matches what BUF records.\n\
This means that the file has not been changed since it was visited or saved.")
  (buf)

20533:60b9e88f8743

Lisp_Object Qfile_name_history;

Lisp_Object Qcar_less_than_car;

static int a_write P_ ((int, char *, int, int,
			Lisp_Object, struct coding_system *));
static int e_write P_ ((int, char *, int, struct coding_system *));

void
report_file_error (string, data)
     char *string;
     Lisp_Object data;
{

  return Qnil;
}

/* Restore point, having saved it as a marker.  */

static Lisp_Object
restore_point_unwind (location)
     Lisp_Object location;
{
  Fgoto_char (location);
  Fset_marker (location, Qnil, Qnil);
  return Qnil;
}

Lisp_Object Qexpand_file_name;

DEFUN ("unhandled-file-name-directory", Funhandled_file_name_directory, Sunhandled_file_name_directory, 1, 1, 0,
  "Return a directly usable directory name somehow associated with FILENAME.\n\
A `directly usable' directory name is one that may be used without the\n\
intervention of any file handler.\n\
If FILENAME is a directly usable file itself, return\n\
\(file-name-directory FILENAME).\n\
The `call-process' and `start-process' functions use this function to\n\
get a current directory to run processes in.")
  (filename)
    Lisp_Object filename;
{

#endif

DEFUN ("insert-file-contents", Finsert_file_contents, Sinsert_file_contents,
  1, 5, 0,
  "Insert contents of file FILENAME after point.\n\
Returns list of absolute file name and number of bytes inserted.\n\
If second argument VISIT is non-nil, the buffer's visited filename\n\
and last save file modtime are set, and it is marked unmodified.\n\
If visiting and the file does not exist, visiting is completed\n\
before the error is signaled.\n\
The optional third and fourth arguments BEG and END\n\
specify what portion of the file to insert.\n\
These arguments count bytes in the file, not characters in the buffer.\n\
If VISIT is non-nil, BEG and END must be nil.\n\
\n\
If optional fifth argument REPLACE is non-nil,\n\
it means replace the current buffer contents (in the accessible portion)\n\
with the file contents.  This is better than simply deleting and inserting\n\

  (filename, visit, beg, end, replace)
     Lisp_Object filename, visit, beg, end, replace;
{
  struct stat st;
  register int fd;
  int inserted = 0;
  int inserted_chars = 0;
  register int how_much;
  register int unprocessed;
  int count = specpdl_ptr - specpdl;
  struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
  Lisp_Object handler, val, insval, orig_filename;

  int not_regular = 0;
  char read_buf[READ_BUF_SIZE];
  struct coding_system coding;
  unsigned char buffer[1 << 14];
  int replace_handled = 0;
  int set_coding_system = 0;

  if (current_buffer->base_buffer && ! NILP (visit))
    error ("Cannot do file visiting in an indirect buffer");

  if (!NILP (current_buffer->read_only))

     But if we discover the need for conversion, we give up on this method
     and let the following if-statement handle the replace job.  */
  if (!NILP (replace)
      && ! CODING_REQUIRE_DECODING (&coding))
    {
      /* same_at_start and same_at_end count bytes,
	 because file access counts bytes
	 and BEG and END count bytes.  */
      int same_at_start = BEGV_BYTE;
      int same_at_end = ZV_BYTE;
      int overlap;
      /* There is still a possibility we will find the need to do code
	 conversion.  If that happens, we set this variable to 1 to
	 give up on handling REPLACE in the optimized way.  */
      int giveup_match_end = 0;

	      giveup_match_end = 1;
	      break;
	    }

	  bufpos = 0;
	  while (bufpos < nread && same_at_start < ZV_BYTE
		 && FETCH_BYTE (same_at_start) == buffer[bufpos])
	    same_at_start++, bufpos++;
	  /* If we found a discrepancy, stop the scan.
	     Otherwise loop around and scan the next bufferful.  */
	  if (bufpos != nread)
	    break;
	}
      immediate_quit = 0;
      /* If the file matches the buffer completely,
	 there's no need to replace anything.  */
      if (same_at_start - BEGV_BYTE == XINT (end))
	{
	  close (fd);
	  specpdl_ptr--;
	  /* Truncate the buffer to the size of the file.  */
	  del_range_1 (same_at_start, same_at_end, 0);

      while (!giveup_match_end)
	{
	  int total_read, nread, bufpos, curpos, trial;

	  /* At what file position are we now scanning?  */
	  curpos = XINT (end) - (ZV_BYTE - same_at_end);
	  /* If the entire file matches the buffer tail, stop the scan.  */
	  if (curpos == 0)
	    break;
	  /* How much can we scan in the next step?  */
	  trial = min (curpos, sizeof buffer);

	}
      immediate_quit = 0;

      if (! giveup_match_end)
	{
	  int temp;

	  /* We win!  We can handle REPLACE the optimized way.  */

	  /* Extends the end of non-matching text area to multibyte
             character boundary.  */
	  if (! NILP (current_buffer->enable_multibyte_characters))
	    while (same_at_end < ZV_BYTE
		   && ! CHAR_HEAD_P (FETCH_BYTE (same_at_end)))
	      same_at_end++;

	  /* Don't try to reuse the same piece of text twice.  */
	  overlap = (same_at_start - BEGV_BYTE
		     - (same_at_end + st.st_size - ZV));
	  if (overlap > 0)
	    same_at_end += overlap;

	  /* Arrange to read only the nonmatching middle part of the file.  */
	  XSETFASTINT (beg, XINT (beg) + (same_at_start - BEGV_BYTE));
	  XSETFASTINT (end, XINT (end) - (ZV_BYTE - same_at_end));

	  del_range_byte (same_at_start, same_at_end, 0);
	  /* Insert from the file at the proper position.  */
	  temp = BYTE_TO_CHAR (same_at_start);
	  SET_PT_BOTH (temp, same_at_start);

	  /* If display currently starts at beginning of line,
	     keep it that way.  */
	  if (XBUFFER (XWINDOW (selected_window)->buffer) == current_buffer)
	    XWINDOW (selected_window)->start_at_line_beg = Fbolp ();

     is needed, in a simple way that needs a lot of memory.
     The preceding if-statement handles the case of no conversion
     in a more optimized way.  */
  if (!NILP (replace) && ! replace_handled)
    {
      int same_at_start = BEGV_BYTE;
      int same_at_end = ZV_BYTE;
      int overlap;
      int bufpos;
      /* Make sure that the gap is large enough.  */
      int bufsize = 2 * st.st_size;
      unsigned char *conversion_buffer = (unsigned char *) xmalloc (bufsize);
      int temp;

      /* First read the whole file, performing code conversion into
	 CONVERSION_BUFFER.  */

      if (lseek (fd, XINT (beg), 0) < 0)

      while (bufpos > 0 && same_at_end > same_at_start
	     && FETCH_BYTE (same_at_end - 1) == conversion_buffer[bufpos - 1])
	same_at_end--, bufpos--;

      /* Don't try to reuse the same piece of text twice.  */
      overlap = same_at_start - BEGV_BYTE - (same_at_end + inserted - ZV_BYTE);
      if (overlap > 0)
	same_at_end += overlap;

      /* If display currently starts at beginning of line,
	 keep it that way.  */

	XWINDOW (selected_window)->start_at_line_beg = Fbolp ();

      /* Replace the chars that we need to replace,
	 and update INSERTED to equal the number of bytes
	 we are taking from the file.  */
      inserted -= (Z_BYTE - same_at_end) + (same_at_start - BEG_BYTE);
      del_range_byte (same_at_start, same_at_end, 0);
      SET_PT_BOTH (GPT, GPT_BYTE);

      insert_1 (conversion_buffer + same_at_start - BEG_BYTE, inserted,
		0, 0, 0);

      free (conversion_buffer);
      close (fd);
      specpdl_ptr--;

    {
	/* try is reserved in some compilers (Microsoft C) */
      int trytry = min (total - how_much, READ_BUF_SIZE - unprocessed);
      char *destination = (! (CODING_REQUIRE_DECODING (&coding)
			      || CODING_REQUIRE_DETECTION (&coding))
			   ? (char *) (BYTE_POS_ADDR (PT_BYTE + inserted - 1) + 1)
			   : read_buf + unprocessed);
      int this, this_chars;

      /* Allow quitting out of the actual I/O.  */
      immediate_quit = 1;
      QUIT;
      this = read (fd, destination, trytry);

	 so don't bother counting in HOW_MUCH.
	 (INSERTED is where we count the number of characters inserted.)  */
      if (! not_regular)
	how_much += this;

      this_chars = this;
      if (CODING_REQUIRE_DECODING (&coding)
	  || CODING_REQUIRE_DETECTION (&coding))
	{
	  int require, produced, consumed;

	      if (this == 0)
		coding.last_block = 1;
	    }

	  produced = decode_coding (&coding, read_buf,
				    BYTE_POS_ADDR (PT_BYTE + inserted - 1) + 1,
				    this, GAP_SIZE, &consumed);
	  if (produced > 0) 
	    {
	      Lisp_Object temp;

	      XSET (temp, Lisp_Int, Z_BYTE + produced);
	      if (Z_BYTE + produced != XINT (temp))
		{
		  how_much = -2;
		  break;
		}
	    }
	  unprocessed = this - consumed;
	  bcopy (read_buf + consumed, read_buf, unprocessed);
	  this = produced;
	  this_chars = chars_in_text (BYTE_POS_ADDR (PT_BYTE + inserted - 1) + 1,
				      produced);
	}

      GAP_SIZE -= this;
      GPT_BYTE += this;
      ZV_BYTE += this;
      Z_BYTE += this;
      GPT += this_chars;
      ZV += this_chars;
      Z += this_chars;

      if (GAP_SIZE > 0)
	/* Put an anchor to ensure multi-byte form ends at gap.  */
	*GPT_ADDR = 0;
      inserted += this;
      inserted_chars += this_chars;
    }

#ifdef DOS_NT
  /* Use the conversion type to determine buffer-file-type
     (find-buffer-file-type is now used to help determine the
     conversion).  */

    current_buffer->buffer_file_type = Qnil;
  else
    current_buffer->buffer_file_type = Qt;
#endif

  if (inserted > 0)
    {
      record_insert (PT, inserted_chars);

      /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */
      offset_intervals (current_buffer, PT, inserted_chars);
      MODIFF++;
    }

  close (fd);

    error ("IO error reading %s: %s",
	   XSTRING (orig_filename)->data, strerror (errno));
  else if (how_much == -2)
    error ("maximum buffer size exceeded");

  set_coding_system = 1;

 notfound:
 handled:

  if (!NILP (visit))
    {

      if (current_buffer->modtime == -1)
	report_file_error ("Opening input file", Fcons (orig_filename, Qnil));
    }

  /* Decode file format */
  if (inserted_chars > 0)
    {
      insval = call3 (Qformat_decode,
		      Qnil, make_number (inserted_chars), visit);
      CHECK_NUMBER (insval, 0);
      inserted_chars = XFASTINT (insval);
    }

  /* 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_chars > 0 && total > 0
      && (NILP (visit) || !NILP (replace)))
    signal_after_change (PT, 0, inserted_chars);

  if (set_coding_system)
    Vlast_coding_system_used = coding.symbol;

  if (inserted > 0)
    {
      p = Vafter_insert_file_functions;
      if (!NILP (coding.post_read_conversion))
	p = Fcons (coding.post_read_conversion, p);

      while (!NILP (p))
	{
	  insval = call1 (Fcar (p), make_number (inserted_chars));
	  if (!NILP (insval))
	    {
	      CHECK_NUMBER (insval, 0);
	      inserted_chars = XFASTINT (insval);
	    }
	  QUIT;
	  p = Fcdr (p);
	}
    }

  /* ??? Retval needs to be dealt with in all cases consistently.  */
  if (NILP (val))
    val = Fcons (orig_filename,
		 Fcons (make_number (inserted),
			Qnil));

  RETURN_UNGCPRO (unbind_to (count, val));
}

static Lisp_Object build_annotations P_ ((Lisp_Object, Lisp_Object,
					  Lisp_Object));

/* If build_annotations switched buffers, switch back to BUF.
   Kill the temporary buffer that was selected in the meantime.

   Since this kill only the last temporary buffer, some buffers remain

     when we must put designation sequences at beginning of line.  */
  if (INTEGERP (start)
      && coding.type == coding_type_iso2022
      && coding.flags & CODING_FLAG_ISO_DESIGNATE_AT_BOL
      && GPT > BEG && GPT_ADDR[-1] != '\n')
    {
      int opoint = PT, opoint_byte = PT_BYTE;
      scan_newline (PT, PT_BYTE, ZV, ZV_BYTE, 1, 0);
      move_gap_both (PT, PT_BYTE);
      SET_PT_BOTH (opoint, opoint_byte);
    }
#endif

  failure = 0;
  immediate_quit = 1;

			     XSTRING (start)->size, 0, &annotations, &coding);
      save_errno = errno;
    }
  else if (XINT (start) != XINT (end))
    {
      register int end1 = CHAR_TO_BYTE (XINT (end));

      tem = CHAR_TO_BYTE (XINT (start));

      if (XINT (start) < GPT)
	{
	  failure = 0 > a_write (desc, BYTE_POS_ADDR (tem),
				 min (GPT_BYTE, end1) - tem, tem, &annotations,
				 &coding);
	  save_errno = errno;
	}

      if (XINT (end) > GPT && !failure)
	{
	  tem = max (tem, GPT_BYTE);
	  failure = 0 > a_write (desc, BYTE_POS_ADDR (tem), end1 - tem,
				 tem, &annotations, &coding);
	  save_errno = errno;
	}
    }
  else
    {

  if (!auto_saving)
    message ("Wrote %s", XSTRING (visit_file)->data);

  return Qnil;
}

Lisp_Object merge ();

DEFUN ("car-less-than-car", Fcar_less_than_car, Scar_less_than_car, 2, 2, 0,
  "Return t if (car A) is numerically less than (car B).")
  (a, b)

    }

  UNGCPRO;
  return annotations;
}

/* Write to descriptor DESC the NBYTES bytes starting at ADDR,
   assuming they start at byte position BYTEPOS in the buffer.
   Intersperse with them the annotations from *ANNOT
   which fall within the range of byte positions BYTEPOS to BYTEPOS + NBYTES,
   each at its appropriate position.

   We modify *ANNOT by discarding elements as we use them up.

   The return value is negative in case of system call failure.  */

static int
a_write (desc, addr, nbytes, bytepos, annot, coding)
     int desc;
     register char *addr;
     register int nbytes;
     int bytepos;
     Lisp_Object *annot;
     struct coding_system *coding;
{
  Lisp_Object tem;
  int nextpos;
  int lastpos = bytepos + nbytes;

  while (NILP (*annot) || CONSP (*annot))
    {
      tem = Fcar_safe (Fcar (*annot));
      nextpos = 0;
      if (INTEGERP (tem))
	nextpos = CHAR_TO_BYTE (XFASTINT (tem));

      /* If there are no more annotations in this range,
	 output the rest of the range all at once.  */
      if (! (nextpos >= bytepos && nextpos <= lastpos))
	return e_write (desc, addr, lastpos - bytepos, coding);

      /* Output buffer text up to the next annotation's position.  */
      if (nextpos > bytepos)
	{
	  if (0 > e_write (desc, addr, nextpos - bytepos, coding))
	    return -1;
	  addr += nextpos - bytepos;
	  bytepos = nextpos;
	}
      /* Output the annotation.  */
      tem = Fcdr (Fcar (*annot));
      if (STRINGP (tem))
	{
	  if (0 > e_write (desc, XSTRING (tem)->data, XSTRING (tem)->size,
			   coding))

#ifndef WRITE_BUF_SIZE
#define WRITE_BUF_SIZE (16 * 1024)
#endif

/* Write NBYTES bytes starting at ADDR into descriptor DESC,
   encoding them with coding system CODING.  */

static int
e_write (desc, addr, nbytes, coding)
     int desc;
     register char *addr;
     register int nbytes;
     struct coding_system *coding;
{
  char buf[WRITE_BUF_SIZE];
  int produced, consumed;

  /* We used to have a code for handling selective display here.  But,
     now it is handled within encode_coding.  */
  while (1)
    {
      produced = encode_coding (coding, addr, buf, nbytes, WRITE_BUF_SIZE,
				&consumed);
      nbytes -= consumed, addr += consumed;
      if (produced > 0)
	{
	  produced -= write (desc, buf, produced);
	  if (produced) return -1;
	}
      if (nbytes <= 0)
	break;
    }
  return 0;
}

DEFUN ("verify-visited-file-modtime", Fverify_visited_file_modtime,
  Sverify_visited_file_modtime, 1, 1, 0,
  "Return t if last mod time of BUF's visited file matches what BUF records.\n\
This means that the file has not been changed since it was visited or saved.")
  (buf)