// 指定行へインクリメンタルに移動 by IKKI (2005/03/21) if (imestate) { imeswitch; #imeswitched = yes; } #CorrectLineNo = getconfig("CorrectLineNo"); #ox = x; #oy = y; while (true) { #i = inputchar("指定行へ移動: " + $n); if (#i >= 0x30 && #i <= 0x39) $n = $n + char(#i); // [ 0 ] 〜 [ 9 ] else if (#i == 8) $n = leftstr($n, strlen($n) - 1); // [Baskspace] else { if (#i == 27) moveto #ox, #oy; // [Esc] break; } if (#CorrectLineNo) { movetolineno 1, val($n); } else { moveto 0, val($n) - 1; } } if (#imeswitched) imeswitch;