comparison src/fileio.c @ 83676:27d11c1d4e46

Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 857-862) - Update from CVS - Merge from emacs--rel--22 - Update from CVS: lisp/emacs-lisp/avl-tree.el: New file. * emacs--rel--22 (patch 97-100) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 246-247) - Update from CVS Revision: [e-mail]/emacs--multi-tty--0--patch-38

83675:67601f702028

	  `point' iff format-decode did not insert or delete any text.
	  Otherwise we leave `point' at point-min. */
	  int opoint = PT;
	  int opoint_byte = PT_BYTE;
	  int oinserted = ZV - BEGV;
	  
	  TEMP_SET_PT_BOTH (BEGV, BEGV_BYTE); 
	  insval = call3 (Qformat_decode,
			  Qnil, make_number (oinserted), visit);
	  CHECK_NUMBER (insval);
	  if (XINT (insval) == oinserted)
	    SET_PT_BOTH (opoint, opoint_byte);
	  inserted = XFASTINT (insval);
	}

      /* For consistency with format-decode call these now iff inserted > 0
	 (martin 2007-06-28) */
      p = Vafter_insert_file_functions;

	    {
	      /* For the rationale of this see the comment on format-decode above. */
	      int opoint = PT;
	      int opoint_byte = PT_BYTE;
	      int oinserted = ZV - BEGV;

	      TEMP_SET_PT_BOTH (BEGV, BEGV_BYTE);
	      insval = call1 (XCAR (p), make_number (oinserted));
	      if (!NILP (insval))
		{
		  CHECK_NUMBER (insval);
		  if (XINT (insval) == oinserted)
		    SET_PT_BOTH (opoint, opoint_byte);
		  inserted = XFASTINT (insval);
		}
	    }

	  QUIT;
	  p = XCDR (p);

83676:27d11c1d4e46

	  `point' iff format-decode did not insert or delete any text.
	  Otherwise we leave `point' at point-min. */
	  int opoint = PT;
	  int opoint_byte = PT_BYTE;
	  int oinserted = ZV - BEGV;
	  int ochars_modiff = CHARS_MODIFF;
	  
	  TEMP_SET_PT_BOTH (BEGV, BEGV_BYTE); 
	  insval = call3 (Qformat_decode,
			  Qnil, make_number (oinserted), visit);
	  CHECK_NUMBER (insval);
	  if (ochars_modiff == CHARS_MODIFF)
	    /* format_decode didn't modify buffer's characters => move
	       point back to position before inserted text and leave
	       value of inserted alone. */
	    SET_PT_BOTH (opoint, opoint_byte);
	  else
	    /* format_decode modified buffer's characters => consider
	       entire buffer changed and leave point at point-min. */
	    inserted = XFASTINT (insval);
	}

      /* For consistency with format-decode call these now iff inserted > 0
	 (martin 2007-06-28) */
      p = Vafter_insert_file_functions;

	    {
	      /* For the rationale of this see the comment on format-decode above. */
	      int opoint = PT;
	      int opoint_byte = PT_BYTE;
	      int oinserted = ZV - BEGV;
	      int ochars_modiff = CHARS_MODIFF;
	      
	      TEMP_SET_PT_BOTH (BEGV, BEGV_BYTE);
	      insval = call1 (XCAR (p), make_number (oinserted));
	      if (!NILP (insval))
		{
		  CHECK_NUMBER (insval);
		  if (ochars_modiff == CHARS_MODIFF)
		    /* after_insert_file_functions didn't modify
		       buffer's characters => move point back to
		       position before inserted text and leave value of
		       inserted alone. */
		    SET_PT_BOTH (opoint, opoint_byte);
		  else
		    /* after_insert_file_functions did modify buffer's
	               characters => consider entire buffer changed and
	               leave point at point-min. */
		    inserted = XFASTINT (insval);
		}
	    }

	  QUIT;
	  p = XCDR (p);