% This function sorts a region of lines of the form:
%    keyname
%     text...
%    delimeter string
%    keyname
%     text...
%    delimeter string

define sort_region_internal (line_break_str, delim)
{
   check_region (0);
   narrow ();

   bob ();

   do
     {
	push_mark ();
	ifnot (bol_fsearch (delim)) eob ();
	narrow ();
	ERROR_BLOCK
	  {
	     widen(); widen ();
	  }

	bob ();
	while (eol(), not(eobp()))
	  {
	     del (); insert (line_break_str);
	  }
	widen ();
     }
   while (down_1 ());

   mark_buffer ();
   goto_column (32);

   ERROR_BLOCK
     {
	variable len = strlen (line_break_str);
	bob ();
	while (fsearch (line_break_str))
	  {
	     deln (len); newline ();
	  }
	widen ();
     }

   sort ();
   EXECUTE_ERROR_BLOCK;
}