comparison src/editfns.c @ 26347:7fd9f4ecdd29

(Fdelete_field): Renamed from Ferase_field.

26346:08e52f30ae62

	  *end = NILP(next) ? ZV : XFASTINT (next);
	}
    }
}

DEFUN ("erase-field", Ferase_field, Serase_field, 0, 1, "d",
  "Erases the field surrounding POS.\n\
A field is a region of text with the same `field' property.\n\
If POS is nil, the position of the current buffer's point is used.")
  (pos)
     Lisp_Object pos;
{

  Qfield = intern ("field");
  defsubr (&Sfield_beginning);
  defsubr (&Sfield_end);
  defsubr (&Sfield_string);
  defsubr (&Sfield_string_no_properties);
  defsubr (&Serase_field);
  defsubr (&Sconstrain_to_field);

  defsubr (&Sline_beginning_position);
  defsubr (&Sline_end_position);

26347:7fd9f4ecdd29

	  *end = NILP(next) ? ZV : XFASTINT (next);
	}
    }
}

DEFUN ("delete-field", Fdelete_field, Sdelete_field, 0, 1, "d",
  "Delete the field surrounding POS.\n\
A field is a region of text with the same `field' property.\n\
If POS is nil, the position of the current buffer's point is used.")
  (pos)
     Lisp_Object pos;
{

  Qfield = intern ("field");
  defsubr (&Sfield_beginning);
  defsubr (&Sfield_end);
  defsubr (&Sfield_string);
  defsubr (&Sfield_string_no_properties);
  defsubr (&Sdelete_field);
  defsubr (&Sconstrain_to_field);

  defsubr (&Sline_beginning_position);
  defsubr (&Sline_end_position);