🚀 go-pugleaf

    $@550f!w(J$@El<G(JCAE$@%7%9%F%`%:$G$9!#(J

    local $@$J(J NG $@$G=P$?5?Ld$K4p$E$/!"<ALd!uDs0F$G$9!#(J

    local$@$J(JNG$@$G!"<!$N$h(J$@$&$J<ALd$,$G$^$7$?!#(J

$@<ALd!'(J
    replace-string$@Ey$G!"J8;zNs$rJ#?t8DCV49$9$k!#(J
    $@$7$+$7!"4V0c$($?CV49(J$@$r<B9T$7$?$3$H$K5$$E$$$F!"(J
undo $@$7$h$&$H$7$?!#$H$3$m$,!"(Jundo 1$@2s$G$O!"CV49(J1$@$D(J $@$7$+85$KLa$i$J$+$C$?!#(J
$@$5$F!"Nc$($P!"(J1$@A`:n(J400$@8D$NJ8;zNsCV49$r0lJU$KA4It(J undo $@$9$kJ}K!$O!"(J
$@$J$$$N$@$m$&$+!)(J

$@Nc(J> 	$@0J2<$N$h$&$J(J$@%F%-%9%H$,$"$C$?(J

$@Nc(J> 	   1: MZB
$@Nc(J> 	   2: MZB
$@Nc(J> 	   3: J31
$@Nc(J> 	   4: MZB
$@Nc(J> 	   5: MZB
$@Nc(J> 	      $@!'(J
$@Nc(J> 	 194: MZB
$@Nc(J> 	 195: PASOPIA7
$@Nc(J> 	 196: J31
$@Nc(J> 	 197: MZB
$@Nc(J> 	 198: MULTI8
$@Nc(J> 	 199: PYUTA
$@Nc(J> 	 200: PC98

$@Nc(J> 	$@$3$3$G!"(J
$@Nc(J> 	replace-string  MZB $@"*(J x68000 $@$K$7$h$&$H;W$C$F$$$?$N$K(J
$@Nc(J> 	$@2?$r9M$($F$$$k$N$+(J
$@Nc(J> 	replace-string  MZB $@"*(J J31 $@$K$7$F$7$^$C$?!#(J

$@Nc(J> 	$@$o$!$*(J $@$7$^$C$?$#!#(J
$@Nc(J> 	undo $@0lH/$8$c!"(J1$@8D$7$+La$s$J$$!*(J


$@;d$NEz$(!'(J
    replace-string$@$NBe$o$j$K!"(J
    	ESC %	$@J8;zNs(J1 [CR]
    	    	$@J8;zNs(J2 [CR]
    	, $@$d(J [SPACE] $@$G!"CV49FbMF$K4V0c$$$,$J$$$3$H$r(J2$@!A(J3$@2s3N$+$a$F$+$i!"(J
    	! $@$G(J$@!";D$jA4It$rCV49$9$k!#(J
    $@$3$&$9$l$P!"$=$s$J2?EY$b(J undo $@$r$7$J$/$F$$$$H&!#(J
    $@$D$^$j!"!VNc$($P!"(J1$@A`(J$@:n(J400$@8D$NJ8;zNsCV49$r0lJU$KA4It(J undo $@$9$kJ}K!!W$O!"(J
$@L5MQ$G$"$k!#(J


$@$3$l$KBP$7!"<!$N$h$&$J5?Ld$,Ds<($5(J$@$l$^$7$?!#(J


$@5?Ld!'(J
	ESC x replace-string $@$H$$$&!"%f!<%6$+$i8+$?$i(J
	one operation $@$G<B9T$7$?$h$&$K8+$((J$@$k$N$,!"(J
	undo $@0lH/$GLa$i$J$$$N$ODq93$,$"$k!#(J


    $@3N$+$K!"8@$o$l$F$_$l$P$=$NDL$j!#(J
    $@$G!"?'!9D4$Y(J$@$F$_$k$H!"(J$NEMACS/lisp/replace.el $@$GDj5A$9$k!"(J
perform-replace $@$r$?$C$?(J2$@9T=$@5$9$k$@$1$G!"$3$N(J1$@H/(J undo $@$,2DG=$J$3$H$K(J
$@5$$E$-$^$7$?!#(J

    $@<!$N%Q%C%A$,$=$l$G$9!#(J


diff -bwt -c /usr/local/nemacs/lisp/replace.el emacs/lisp/replace.el
*** /usr/local/nemacs/lisp/replace.el	Thu Apr  4 19:28:55 1991
--- emacs/lisp/replace.el	Sat Feb 15 13:15:38 1992
***************
*** 208,213 ****
--- 208,214 ----
  
  (defun perform-replace (from-string to-string
                          query-flag regexp-flag delimited-flag)
+   (undo-boundary)
    (let ((nocasify (not (and case-fold-search case-replace
                              (string-equal from-string
                                            (downcase from-string)))))
***************
*** 233,239 ****
        ;; right after end of previous replacement.
        (if (eq lastrepl (point))
            (forward-char 1)
!         (undo-boundary)
          (if (not query-flag)
              (replace-match to-string nocasify literal)
            (let (done replaced)
--- 234,240 ----
        ;; right after end of previous replacement.
        (if (eq lastrepl (point))
            (forward-char 1)
! ;       (undo-boundary)
          (if (not query-flag)
              (replace-match to-string nocasify literal)
            (let (done replaced)


    $@85$N(J perform-replace $@$G$O!"3F2s$N(Jrelace$@$G$"$k!"(Jwhile $@%k!<%W$NCf$G!"(J
$@Kh2s(J undo-boundary $@$r@Z$C$F$$$^$7$?!#$3$N$?$a!"(Jundo 1$@2s$G!"CV49(J 1$@2sJ,$N(J
$@I|85$H$J$C$F$$$^$7$?!#(J
    $@$3$l$r!"(Jperform-replace $@3+;OD>8e!"$D$^$j!"(Jwhile $@%k(J$@!<%W$N30$G(J
undo-boundary $@$r@Z$k$h$&$K$7$^$7$?!#(J
    $@EvA3$G$9$,!"$?$C$?$3$l$@$1$G!"$"$i$f$k(J replace $@$,(J$@!"(J1$@H/$G(Jundo $@$G$-$kH&!#(J

    $@$3$3$G!"5/$3$k5?Ld$,!"(J
    	$@$J$<!"85!9$N(J perform-replace $@$G$O!"$3$&$J$C$F(J$@$J$+$C$?$+!)(J
    	$@$3$&JQ99$7$?>l9g$K!"2?$+ITET9g$,5/$3$k$N$+!)(J
$@$H!"$$$&$3$H$G$9!#(J
    $@$I$J$?$+!"$4B8CN(J$@$G$7$?$i!"65$($F2<$5$$!#(J
    $@;d$O(J Lisp $@$,J,$+$C$F$J$$$?$a!"$3$l$O$H$s$G$b$J$$;W$$0c$$$+$b$7$l$^$;$s!#(J


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


    $@8f0U8+!?8f65<x!"$*BT$A$7$F$$(J$@$^$9!#(J
---
    +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    	$@550f!!?.5A(J		E-mail: zic@tci.toshiba.co.jp
	$@El<G(JCAE$@%7%9%F%`%:!J3t!K(J	$@5;=QIt(J	$@%3%s%T%e!<%?5;=Q(J
	    7N1HVR/430MHz	Phone: 	(044) 548-4037