🚀 go-pugleaf

$B?7>k!wC^GHBg3X>pJs$G$9!#$3$s$K$A$O!#(B

In article <2005041587r7hcdacv.00kose@meadowy.org>
	KOSEKI Yoshinori <kose@meadowy.org> writes:
> > Mule-UCS $B$rF~$l$?$i!"(BSelect coding system (default raw-text) 
> > $B$N$h$&$J%a%C%;!<%8$r8+$kIQEY$,A}$($^$7$?!#(Braw-text $B$G$J$/$F!"(B
> > utf$B$J$s$H$+$N$3$H$b$"$j$^$9!#(B
> Emacs $B$N%P!<%8%g%s$O$$$/$D$G$9$+(B?

Emacs 21.3.2 $B$G$9!#(BMule-UCS $B$O!"(B2001/4/13 $BHG!#(B

> Emacs21.4 $B$H(B Mule-UCS $B$NAH$_$"$o$;$GF1MM$NLdBj$,$*$3$k$H$$$&(B
> $B$3$H$G(B Meadow2.10(based on Emacs21.4) $B$G$O(B mule.el $B$N(B
> register-char-codings() $B$KJQ99$,$O$$$C$F$$$k$=$&$G$9!#(B
> 
> http://svn.meadowy.org/Meadow/branches/2.1/lisp/international/mule.el
> $B$N(B r3635 $B$NJQ99$G$9!#(B

$B$J$k$[$I!#:#N9@h$GMn$ACe$$$F;n$;$J$$$N$G$9$,!"F1$8OC$O8z$/4|(B
$BBT$,$"$j$^$9!#(B

In article <b9yd5sxhr1a.fsf@jpl.org>
	Katsumi Yamaoka <yamaoka@jpl.org> writes:
> junet-unix $B$GL5M}LpM}%;!<%V$7$F!"%F%-%9%H$,ItJ,E*$K(B ($B$b$7$+$7$?(B
> $B$iA4It(B) $B2u$l$F$7$^$C$F$bNI$$$J$i$P!"Hs>o$KMpK=$G$9$,!"(B
> (defalias 'select-safe-coding-system
>   (lambda (&rest args) buffer-file-coding-system))

$B$3$N(B defalias $B$,%0%m!<%P%k$K$+$+$k$H4m$J$5$=$&$@$1$I!"%m!<%+(B
$B%k!&%9%3!<%W$K$G$-$k$H$$$$$+$b!#%m!<%+%k$N4X?tDj5A$O$G$-$^$7(B
$B$?$C$1!)(B

> $B$G$b!"$9$Y$F$NEE;R%a!<%k$r(B junet-unix $B$G%;!<%V$7$h$&$H$$$&$N$,!"(B
> $B$=$b$=$bL5M}$G$9!#$=$l$,$^$H$b$JAj<j$+$iMh$?%a!<%k$G$"$C$F$b!"2$(B
> $B=#$N?M$,$&$C$+$jHs(B-ASCII $BJ8;z$r=q$$$?$j!"F|K\$N?M$,$$$o$f$kH>3Q(B
> $B%+%?%+%J$r0zMQ$7$F$7$^$&$3$H$O$"$k$G$7$g$&$7!"(Bspam $B$@$C$?$i2?$G(B
> $B$b$"$j$G$9$+$i!#(B

$B30$+$i$b$i$C$?%a!<%k$rI=<($9$k=j$G$O!"FC$KLdBj$O=P$F$$$^$;$s!#(B
$B:#$O<+J,$G(B junet-unix $B$GAw$k$Y$/EE;R%a!<%k$NJ8=q$N2<=q$-$r:n(B
$B@.$7$F$$$k;~$NLdBj$G$9!#0zMQ$9$k$3$H$b$"$j$^$9$,!"%Z!<%9%H$9(B
$B$k=V4V$K7Y9p$7$F$/$l$k$H!"0lHV$$$$$s$@$1$I!#J]B8$9$k;~$K8@$C(B
$B$F$/$k$+$i!#(B

> junet-unix $B$G%;!<%V$G$-$J$$J8;z$rC5$90lHLE*$JJ}K!$rCN$i$J$$$N$G(B
> $B$9$,!"L5M}LpM}$GNI$1$l$P!"$3$&$G$9!#(B
> 
> (defun find-invalid-junet-char ()
>   (interactive)
>   (re-search-forward
>    (format "[^\000-\177%c-%c]"
> 	   (make-char 'japanese-jisx0208 33 33)
> 	   (make-char 'japanese-jisx0208 127 127))
>    nil t))

$B$J$k$[$I!#@55,I=8=$K4A;z$rF~$l$F$$$k$o$1$G$9$M!#:#!"N9@h$GMn(B
$B$ACe$$$F;n$;$J$$$N$G8e$G;n$7$F$_$^$9!#(B

$B!@!@!!?7>k!!Lw!!!J$7$s$8$g$&!!$d$9$7!K!!!@!@(B
$B!@!@!!C^GHBg3X!!EE;R!&>pJs!!!!!!!!!!!!!!!@!@(B