🚀 go-pugleaf

In article <ZIC.92Feb15132620@tcii0.tci.toshiba.CO.JP>
	zic@tci.toshiba.CO.JP (Nobuyoshi Kamei) writes:
>>     replace-string$BEy(J$B$G!"J8;zNs$rJ#?t8DCV49$9$k!#(J
>>     $B$7$+$7!"4V0c$($?CV49$r<B9T$7$?$3$H$K5$$E$$$F!"(J
>> undo $B$7$h$&$H$7(J$B$?!#$H$3$m$,!"(Jundo 1$B2s$G$O!"CV49(J1$B$D(J $B$7$+85$KLa$i$J$+$C$?!#(J
>> $B$5$F!"Nc$($P!"(J1$BA`:n(J400$B8D$NJ8;zNsCV49$r0l(J$BJU$KA4It(J undo $B$9$kJ}K!$O!"(J
>> $B$J$$$N$@$m$&$+!)(J

C-u 400 C-x u  $B$H$$$&<j$b$"$j$^$9!#$^$"!"IaDL$O(J 400 $B$C(J$B$F?t;z$,(J
$B$J$+$J$+7h$^$j$^$;$s$,!#(J

>>     $B$3$l$r!"(Jperform-replace $B3+;OD>8e!"$D$^$j!"(Jwhile $B%k!<%W$N30$G(J
>> undo-boundary $B$r@Z$k$h$&$K$7$^$7$?!#(J

$B$3$l$OITI,MW$G$7$g$&!#(J(undo-boundary) $B$O(J command-loop $B$GKh2s(J
$BI,$:<B9T$5$l$F$$$k$N$G!#(J

>>     	$B$J$<!"85!9$N(J perform-replace $B$G$O!"$3$&$J$C$F$J$+$C$?$+!)(J
>>     	$B$3$&JQ99$7$?>l9g$K!"2?$+ITET9g$,5/$3$k$N$+!)(J

(undo-boundary) $B$,$d$k$3$H$O!"$^$"(J
	 (setq undo-list (cons nil undo-list))
$B$N$h$&$J$b$s$G$9$,!"$3$N(J nil $B$,$3$3$^$G(J undo $B$7$m$H$$$&(J flag 
$B$J$s$G$9$M!#(J

$B$G!"$3(J$B$N(J nil $B$K$O$b$&0l$D0UL#$,$"$C$F!"(Jgarbage collectinon 
$B$,5/$3$k$H(J system $B$O(J undo-list $B$r$"$k(J threshold $B$h$jC;$/$7$h(J
$B$&$H$9$k$s$G$9$,!"$=$N;~$N@Z$lL\$r(J nil$B$,$"$k$H$3$m$K$9$kLu$G(J
$B$9!#$b$7(J threshold $B0JFb$K(J nil $B$,$J$1$l$P(J undo-list $B$O(J nil $B$K(J
$B$J$j$^$9!#(J

$B$H$&$o$1$G!"BgNL$N(J replace-string $B$r$d$C$?;~!"$b$7ESCf(J$B$G(J 
garbage collectinon $B$,5/$3$j(J undo-boundary $B$,A4A38F$P$l$F$$(J
$B$J$$$H$9$Y$F$N(J undo $B>pJs$,>C$($k2DG=@-(J$B$,$"$j$^$9!#(J

>>     	$B$b$7!"$3$N$h$&$KJQ99$9$k$3$H$,ITET9g$G$J$$$J$i!"(J
>>     	$B!VI8=`$NJ}$r$3$N$h$&$K(J$B=$@5$9$k!WJ}$,!"$$$$$N$G$O$J$$$+!)(J
>> $B$H!"$3$&$$$&Ds0F$r$7$?$$$H;W$$$^$9!#(J

$B$;$a$F#1#02s$K#12s$H$+%f!<(J$B%6$,;XDj$7$?JQ?t$NCM$K$7$?$,$C$F$H(J
$B$+(J (undo-boundary) $B$r8F$VJ}$,NI$$$N$G$O$J$$$G$7$g$&$+!#(J

undo.c $B$N(J truncate_undo_list $B$r=$@5$9$k$H$$$&<j$b$"$j$^$9$,(J...

$B!]!]!!$1$s$A$c$s!w#E#T#L(J
      handa@etl.go.jp