🚀 go-pugleaf

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

In article <79n8us$sda$1@nntp.wao.or.jp>,
	fujisawa@wao.or.jp (Fujisawa Jiro) writes:

>$B$3$l$r(B ASCII$B!"(BJIS X 0201-roman$B!"(BJIS X 0208 $B0J30!"Nc$($P(B GB $B$d(B Big5 $B$K(B
>$BBP1~$5$;$k$K$O!"$I$N$h$&$K$7$?$i$h$m$7$$$N$G$7$g$&$+!#(B

GB 2312 $B$O(B JIS X 0208 $B$HF1MM$KC1=c$KJQ49$G$-$k$N$G$9$,!"(BBig5 $B$O(B
$BFCJL$J%3!<%IJQ49$7$F$$$^$9(B(*)$B$N$G!"85$N%3!<%I$KLa$7$F$d$kI,MW$,(B
$B$"$j$^$9!#(B

* mule $B$O(B 96x96 $BJ8;z=89g$^$G$7$+07$($J$$$?$a$N$G!"(Blevel 1 $B$H(B 2 
  $B$NFs$D$NJ8;z=89g$KJ,$1$F$$$^$9(B

$BA0$N5-;v$N%W%m%0%i%`$G$O!"07$&J8;z=89g$rA}$d$9EY$K=$@5$7$J$1$l$P(B
$B$J$i$J$$$N$G!"$b$&>/$7%^%7$K$7$F$_$^$7$?!#(B

(global-set-key "\C-x\M-="
		(lambda ()
		  (interactive)
		  (let* ((c (following-char))
			 (lc (char-leading-char c))
			 (cb (char-bytes lc))
			 (cd (char-description lc))
			 (cr (char-registry lc)))
		    (cond ((= lc lc-composite)
			   (message "Char: %c (composite)" c))
			  ((string= cr "Big5")
			   (let ((big (code-convert-string
				       (char-to-string c)
				       *internal* *big5*)))
			     (message "Char: %c (0x%.2x%.2x) %s %s"
				      c
				      (aref big 0) (aref big 1)
				      cd cr)))
			  ((= (char-bytes lc) 1)
			   (message "Char: %c (0x%.2x) %s %s"
				    c
				    (if (= lc 0)
					c
				      (logand (char-component c 1) 127))
				    cd cr))
			  (t
			   (message "Char: %c (0x%.2x%.2x) %s %s"
				    c
				    (logand (char-component c 1) 127)
				    (logand (char-component c 2) 127)
				    cd cr))))))

Big5 $B$N$h$&$KFCJL$J%(%s%3!<%G%#%s%0$r$7$F$$$kJ8;z=89g$K$D$$$F$O(B
$B5,B'$rDI2C$7$F$$$/I,MW$,$"$j$^$9$,!"$=$l0J30$O$^$H$a$F07$&$h$&$K(B
$B$7$^$7$?!#(B
--
$BJR;3!w#P#F#U(B