if (rectselecting == 1) {
	$msgBody = "矩形範囲選択では使用できません。";
	message $msgBody;
	goto Quit;
}

if (selecting == 0) {
	$msgBody = "全ての行末に文字列を追加しますか？";
	question $msgBody;
	if (result == 0) {
		goto Quit;
	}
	else {
		selectall;
	}
}

$srBuf = searchbuffer;
#srOpt = searchoption;

#slX = seltopx;
#slY = seltopy;
#seX = selendx;
#seY = selendy;

moveto #slX, #slY;
#slNo = lineno;
moveto #seX, #seY;
#elNo = lineno;
#clNo = #slNo;

$msgBody = "追加する文字列を指定してください。";
$addText = input($msgBody, "");
if ($addText == "") {
	goto Quit;
}

escape;

while (#clNo < #elNo) {
	movetolineno 1, #clNo;
	replacedown "\n", $addText + "\n", regular;
	#clNo = #clNo + 1;
}

movetolineno 1, #slNo;
setsearch $srBuf, #srOpt;
goto Quit;

Quit:
	endmacro;