🚀 go-pugleaf

$@#N#T#T$N85ED$G$9!#(J

  $@;d$b0JA0F1$8LdBj$GG:$s$@$N$GJX>h$5(J$@$;$F2<$5$$!#(J

In article <ZIC.92Feb15132620@tcii0.tci.toshiba.CO.JP>, zic@tci.toshiba.CO.JP (Nobuyoshi Kamei) writes:
$@550f$5$s(J> Nntp-Posting-Host: tcii0

$@550f$5$s(J>     $@550f!wEl<G(JCAE$@%7%9%F%`%:$G$9!#(J

$@$O$8(J$@$a$^$7$F!#(J

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

  $@$^$5$K$3$NE@$G$9!#!J$"$/$^$G$b!";d$N8D?ME*$J8+2r$G$9$,(J$@!KHs>o$K6/NO$G!"(J
$@F0:n$H$7$F$b@0A3$H$7$F$$$k$O$:$N(J emacs $@$N(J Undo $@$,!"!VJQ$JF0$-!W$K$J$k(J
$@$N$G$9!#:G=i$K(J$@$3$N8=>]$KAx6x$7$?;~$O!"$A$g$C$H$7$?%Q%K%C%/$K$J$j$^$7$?!#(J:-)

$@550f$5$s(J>     $@$G!"?'!9D4$Y$F$_$k$H!"(J$NEMACS/lisp/replace.el $@$GDj5A$9$k!"(J
$@550f$5$s(J> perform-replace $@$r$?$C$?(J2$@9T=$@5$9$k$@$1$G!"$3$N(J1$@H/(J undo $@$,(J
$@550f$5$s(J> $@2DG=$J$3$H$K5$$E$-$^$7$?!#(J

  $@;d$b7k6I!"F1MM$N=$@5$r9T$C$?(J perform-replace $@$r(J .emacs $@$K<h(J$@$j9~$s$G!"(J
undo-boundary $@$N0LCV$rJQ99$9$k;v$GF($2$F$$$^$9!#!J<!$N%Q%C%A$r;2>H!K(J

 --------
*** replace.el	Thu Feb 20 01:51:29 1992
--- replace.el.org	Thu Feb 20 01:51:14 1992
***************
*** 1,6 ****
  (defun perform-replace (from-string to-string
! 				    query-flag regexp-flag delimited-flag
! 				    &optional dont-mark-undo)
    (let ((nocasify (not (and case-fold-search case-replace
  			    (string-equal from-string
  					  (downcase from-string)))))
--- 1,5 ----
  (defun perform-replace (from-string to-string
! 		        query-flag regexp-flag delimited-flag)
    (let ((nocasify (not (and case-fold-search case-replace
  			    (string-equal from-string
  					  (downcase from-string)))))
***************
*** 17,25 ****
  				    "\\b")))
      (push-mark)
      (push-mark)
-     (if (and (not dont-mark-undo)
- 	     (not query-flag))
- 	(undo-boundary))
      (while (and keep-going
  		(not (eobp))
  		(progn
--- 16,21 ----
***************
*** 29,37 ****
        ;; right after end of previous replacement.
        (if (eq lastrepl (point))
  	  (forward-char 1)
! 	(if (and query-flag
! 		 (not dont-mark-undo))
! 	    (undo-boundary))
  	(if (not query-flag)
  	    (replace-match to-string nocasify literal)
  	  (let (done replaced)
--- 25,31 ----
        ;; 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)
 --------
$@"(Cm0U!'>e5-%Q%C%A$O(J replace.el $@$N$&$A(J perform-replace $@4X?t$NItJ,$N$_(J
$@$r@Z$j=P$7$FHf3S!&@8@.$7$?$b$N$G(J$@$9!#(J
 --------

  $@$?$@550f$5$s$N=$@5$H<c430[$J$k$N$O!"(Jquery-replace $@$b(J perform-replace
$@$rFbIt$G;HMQ$7(J$@$F$$$k$N$G!"(J

  (1) query-replace $@$r9T$C$?>l9g$O!"3F(J replace $@$4$H$N(J undo $@!J$D$^$j(J
$@85$N;EMM$HF1$8F0:n!K(J$@$H$J$k!#(J
  (2) $@?7$?$K%*%W%7%g%s(J dont-mark-undo $@$rDI2C$7$F!"$3$N0z?t$K(J nil $@0J30(J
$@$NCM$,;XDj$5$l$F$$$?>l(J$@9g$O!"(J(undo-boundary) $@$rH/9T$7$J$$!#(J

  $@$N#2E@$G$9!#(J(1) $@$K$D$$$F$O!"9%$_$NLdBj$+$bCN$l$^$;$s$,!"$?$H$((J$@$P(J 
  $@!V(Jquery-replace $@$GJ8;zNsCV49$r9T$C$F$$$F!"#3#02U=j$r=$@5$7$?$,!":G8e(J
$@$N#1%+=j$@$1<j$,$9$Y$C$F!"(J$@=$@5$9$Y$-$G$J$$2U=j$r=$@5$7$F$7$^$C$?!*!W(J
  $@$H$$$&>l9g$K$b!":G8e$N#1%+=j$KBP$7$F(J undo $@$7$F(J $@$=$l0JA0$N(J$@#2#92U=j$O(J
$@M-8z$J$^$^$K$9$k$H$$$&;v$,#12s$N(J undo $@$G2DG=$G$9!#!J#3#02U=jA4ItLa$;!*(J
$@$H8@$o$l$k$H$A$g$C$H(J$@$D$i$$$G$9$,!&!&!&!K(J
  (2) $@$O!"<+J,$G$D$/$C$?4X?t$NCf$G!"!VA4BN$H$7$F#1$D$NBg$-$J=$@5$r$7$?(J
$@$$!#J8;zNs(J$@CV49$b$=$N$&$A$N#1$D$NMWAG$K$9$.$J$$!#!W$H$$$&>l9g$K!"<+J,$N(J
$@4X?t$NCf$K(J (undo-boundary) $@$rCV$$$F$*$-!"(Jperform-replace $@$K$O(J 
(undo-boundary) $@$r$5$;$J$$$?$a$K@_$1$?J*$G$9!#(J

  $@$3$3#3G/4VDxEY>e5-$N(J perform-replace $@$r;H$C$F$$$^$9$,!"FC$KBg$-$JLd(J
$@Bj$O5/$-$F$$$^$;$s!#$?$@!";d$O:G6a(J replace-string $@Ey$O;H$C$F$$(J$@$J$$$N$G!"(J
$@$R$g$C$H$7$?$i$H$s$G$b$J$$4V0c$$$rHH$7$F$$$k$+$bCN$l$^$;$s!#!J$&$+$D$K(J
$@?.$8$J$$$G2<$5$$!#(J^_^$@!K(J

  $@$=$l$K$7$F$b!"$b$7@$3&Cf$G;H$o$l$F$$$k(J gnu-emacs $@$N(J perform-replace 
$@$,!"F1$8LdBj$rJz$($F$$$k(J$@$H$7$?$i!"$=$l$r;H$C$F$$$k?M$O$3$NLdBj$r$I$N$h(J
$@$&$K2r7h$7$F$$$k$N$G$7$g$&$+!)(J
  perform-replace $@$K$O!"(J$@$=$NB>$K$b(J query $@;~$N%-!<%"%5%$%s$,$=$N$^$^%=!<(J
$@%92=$7$F=q$-9~$^$l$F$$$F!"%-!<%"%5%$%s$N=@Fp@-$b$J$$Ey(J$@B>$N(J emacs $@$N%b(J
$@%8%e!<%k$H$O2?$H$J$/0c$&$H$$$&0u>]$r<u$1$^$9!#(J

  $@$J$<$=$&$J$N$+!)!!;d$bCN$j$?$$$G$9!#(J

$@!t(J  $@<B$r8@$($P!"(Jperform-replace $@$r(J .emacs $@$K<h$j9~$s$@$N$b!"85$O$H(J
$@!t!!8@$($P(J query-replace $@$N(J $@!NCV(J$@49$9$k!O$r(J [RET] $@$K!"!NCV49$7$J$$!O(J
$@!t!!$r(J [SPC] $@$KJQ99$7$?$+$C$?$?$a$G!"(J(undo-boundary) $@$N=$@5$O(J
$@!t!!(J$@8e$K9T$C$?J*$@$C$?$j$9$k$N$G$9$,!&!&!&!#(J

  $@$7$+$7$J$,$i!"8=:_;HMQ$7$F$$$k(J nemacs $@$N%P!<%8%g%s$,(J 18.55 $@$H8E$$$N(J
$@$,860x$G:G6a$O=$@5$5$l$F$$$k$N$+$bCN$l$^$;$s!#(J

$@!t(J $@$*$*$\$1$@$C$?$i$4$a$s$J$5$$!#(J
--

$@!a$$(J$@$D$+HkL)$OL@$+$5$l$k!#$=$N;~$,Mh$l$P!#!a(J
$@""""""""""""""""""""""""(J     $@#N#T#T%=%U%H%&%'%"8&5f=j(J  $@85ED!!(J$@IR9@(J   $@""(J
$@""""""""""""""""""""""""""(J   E-mail: motoda@toki.sl.cae.ntt.jp      $@""(J