🚀 go-pugleaf

$BJR;3!w#P#F#U$G$9!#(B

In article <t8u330va5o.fsf@elhazard.inet.mmp.fujitsu.co.jp>,
	IWAMURO Motonori <iwa@mmp.fujitsu.co.jp> writes:

>> $B$bF1$8!K$G$O!"!V3FJ8;z$N:G2<0L%P%$%H!W$7$+%3%T!<$5$l$^$;$s!#(B

>  $B$&!"MW$9$k$K2?$i$+$N<jEv$r$7$F$d$i$J$$$H>pJs$,Mn$A$k$N$G$9$M!D!D!#(B

># $B2?8N$3$s$J;EMM$K$J$C$F$$$k$N$G$7$g$&(B??? $B$o$6$o$6>pJs$rMn$H$9%a%j%C%H$C(B
># $B$F;d$K$O;W$$$D$+$J$$$N$G$9$,!"$"$($F$3$&$$$&JQ99$r$7$F$$$k$N$@$+$i2?(B
># $B$+0UL#$,$"$k$s$G$9$h$M(B?

20.3 $B$G$O(B multibyte character $B$bJ8;zC10L$K07$&$h$&$K$J$j$^$7$?!#(B
$B$3$N$?$a!"(Bmultibyte buffer/string $B$O!"(BC $B8@8l$N(B wchar_t $B7?$NG[Ns(B
$B$N$h$&$K$J$C$F$$$^$9!#(B

multibyte string $B$r(B unibyte buffer $B$K(B insert $B$9$k$?$a$K$O2?$i$+(B
$B$NJQ49$,I,MW$K$J$j$^$9!#$3$NJQ49$K$O!"(B

    (1) (encode-coding-string $B!D(B 'emacs-mule) $B$K$h$kJQ49(B
    (2) (string-make-unibyte $B!D(B) $B$K$h$kJQ49(B

$B$N#2DL$j$,9M$($i$l$^$9!#A0<T$O!"!V>pJs$,Mn$A!W$J$$$G$9$,!"J8;z?t(B
$B$,JQ$o$j$^$9!#8e<T$O!"$=$N5U$G$9!#(B

$B$I$A$i$r<h$k$+$H$$$&$3$H$G$9$,!"(Bmultibyte character $B$,F~$kA0$N(B 
emacs$B!"$D$^$j(B ASCII $B$H(B ISO 8859-1 $B$@$1$N;~$H$N8_49@-$N$?$a$H$$$&(B
$B$h$&$JOC$,!"%a!<%j%s%0%j%9%H$G$"$C$?$h$&$J5$$,$7$^$9!#(B

$B!t",$O5-210c$$$+$bCN$l$^$;$s(B(_ _)

>  $B0lHV0BD>$JJ}K!$H$7$F$O!"(B

>  (let ((emc enable-multibyte-characters))
>    (set-buffer-multibyte t)
>    <$B:#$^$G$N(Bmultibyte$B$,$+$i$`=hM}(B>
>    (set-buffer-multibyte emc))

>$B$_$?$$$K$9$k$3$H$G$7$g$&$+(B? ($B$G$b$H$C$F$b=E$/$J$C$?$j$7$F!D!D(B)

$BBg$-$J%P%C%U%!!<$G(B toggle-enable-multibyte-characters $B$G9T$J$C$F(B
$B$_$k$H!"(Bmultibyte $B"*(B unibyte $B$O=V;~$KJQ$o$j$^$9$,!"$=$N5U$O;~4V(B
$B$,3]$j$^$9!#(B

$B$^$?!"(Bmultibyte buffer $B"+"*(B unibyte buffer $B$r@ZBX$($k$H(B undo $B$,(B
$B$G$-$J$/$J$k$N$G!"$=$l$,LdBj$K$J$k>l9g$b$"$k$H;W$$$^$9!#(B

># $B$A$c$s$H%3!<%I$rDI$$$+$1$?$o$1$G$O$J$$$N$G3N>Z$O;}$F$F$$$J$$$N$G$9$,!"(B
># binary$B$GFI$s$@%P%C%U%!$G$O$"$/$^$G%P%$%HC10L$G07$$$?$$$_$?$$$J$N$G(B

$B$O$$!#(B

>(defun insert-mc-buffer-substring (buf &optional bgn end)

>$B$_$?$$$J$N$r:n$C$F(Bmultibyte$B%P%C%U%!"*(Bunibyte$B%P%C%U%!$K$J$C$F$$$kItJ,$r(B
>$BA4ItCV$-49$($k(B?

># $B$G$b$=$l$b2?$+0c$&$h$&$J5$$,$9$k!D!D!#(B

$B$=$l$7$+$J$$$h$&$K;W$$$^$9!#$"$H!"(Binsert $B$b$"$k$N$G$7$?$i!"(B

(defun insert-to-unibuffer (&rest arg)
  (while arg
    (cond ((stringp (car arg))
	   (insert (string-as-unibyte (car arg))))
	  ((integerp (car arg))
	   (insert (string-as-unibyte (char-to-string (car arg)))))
	  (t
	   (signal 'wrong-type-argument
		   (list 'char-or-string-p (car arg)))))
    (setq arg (cdr arg))))

$B$KCV$-49$($k!"!"!"(B(^_^;

multibyte string $B$rF3F~$7$?$7$o4s$;$O$I$3$+$K8=$l$^$9$,!"(B
multibyte buffer $B"+"*(B unibyte buffer $B4V$N%G!<%?$N<uEO$7$K$9$k$N(B
$B$,1F6A$,>/$J$$$HH=CG$7$?$N$G$O$J$$$+$H?dB,$7$F$$$^$9!#(B
--
$BJR;3!w#P#F#U(B