// // 上へ行ドラッグ (2011/09/19) // by mobitan http://mobitan.org/ // begingroupundo; call DragLine -1; endgroupundo; endmacro; DragLine: // 行ドラッグ // ##1 = 上下移動量 ##selected = selecting; if (##selected) { ##bl = seltoplineno; moveto2 0, selendlineno + (selendcolumn != 0); beginsel; moveto2 0, ##bl; } else { ##oc = column; selectline; } $$text = gettext(seltopx, seltopy, selendx, selendy, true); delete; moveto2 column, lineno + ##1; if (##selected) { ##bl = lineno; ##bc = column; insert $$text; beginsel; moveto2 ##bc, ##bl; endsel; } else { insertfix $$text; moveto2 ##oc, lineno; } return;