// delSurplusLines
// Macro for EmEditor
// By Michael Weiner <mailto:spam@cogit.net>
// 01 February 2014
// This macro replaces multiple blank lines with one blank line.
document.selection.StartOfDocument(false);
if (document.selection.Find(";;;",eeFindNext | eeFindSaveHistory | eeFindReplaceQuiet))
	{
	alert("This macro was aborted because your document contains the sequence ';;;'.");
	}
else
	{
	if (document.selection.Find("^;",eeFindNext | eeFindSaveHistory | eeFindReplaceRegExp | eeFindReplaceQuiet))
		{
		alert("This macro was aborted because your document contains ';' at the start of a line.");
		}
	else
		{
		document.selection.Replace("^[ \\t]*$",";;;",eeFindNext | eeFindSaveHistory | eeReplaceAll | eeFindReplaceRegExp | eeFindReplaceQuiet);
		document.selection.Replace(";;;\\n",";;;",eeFindNext | eeFindSaveHistory | eeReplaceAll | eeFindReplaceRegExp | eeFindReplaceQuiet);
		document.selection.Replace(";;;+","\\n",eeFindNext | eeFindSaveHistory | eeReplaceAll | eeFindReplaceRegExp | eeFindReplaceQuiet);
		}
	}