| 1 $B9T$ND9$5$,2~9T$r4^$a(B ($BH>3Q$G(B) 8191 $BJ8;z0JFb$J$i2<5-$N%^%/%m$G2DG=$G$9!#(B
//------------------ uniq.mac -------------------------------------
disabledraw;
gofiletop;
while(1){
selectline;
$$line = gettext(seltopx,seltopy,selendx,selendy);
if($$line == $$bline){
selectline;
delete;
}
else movetolineno 1,lineno + 1;
if(lineno == linecount2) break;
$$bline = $$line;
}
enabledraw;
endmacro;
|
|