🚀 go-pugleaf

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

In article <796ja7$ni4$1@news.kyoto-inet.or.jp>,
	artemis@mbox.kyoto-ient.or.jp (Leo Masuda) writes:

>$B$5$i$K!"JQ?t(B ctl-hexa$B$K(B nil$B0J30$,@_Dj$5$l$F$*$l$P!"$=$N(B8$B?J?t$,(B16$B?J(B
>$B?t$GI=<($5$l$^$9$,!"$3$N(B8$B?J?t!"(B16$B?J?t$G$"$i$o$5$l$F$$$kJ8;z%3!<%I(B
>$B$O!"(Bmule$B$NFbItI=8=$G$"$k(BInternal$B$JFbIt%3!<%I$N(B8$B?J?t!"(B16$B?J?tI=5-$G(B
>$B$7$g$&$+!#$=$l$H$b0c$&$b$N$G$7$g$&$+!#(B

mule $B$NFbIt%3!<%I$G$9!#(B

>$B$^$?!"$3$l$r!"(B7bit JIS$B$NJ8;z%3!<%I$N(B16$B?J?tI=5-$K$9$k$3$H$O$G$-$k$G(B
>$B$7$g$&$+!#(B

char-component $B$K$h$C$F!"!H3F%P%$%H(B + 128$B!I$,F@$i$l$^$9!#(B

>$B$A$J$_$K!"!V4A!W$NJ8;z$O(B what-cursor-position$B$G$O(B
>  Cha: $B4A(B (0xda41) .............. Japanese JISX0208.\(1983\|1990\)
>$B$HI=<($5$l$^$9$,!"(B7bit JIS$B$N(B16$B?JJ8;z%3!<%I$O(B 0x3441 $B$K$J$k$H;W$$$^$9!#(B

$B$*K>$_$N7k2L$O!"(B

(global-set-key "\C-x\M-="
		(lambda ()
		  (interactive)
		  (let* ((c (following-char))
			 (lc (char-component c 0)))
		    (cond ((< lc 128)
			   (message "0x%.2x" lc))
			  ((or (= lc lc-roman))
			   (message "0x%.2x"
				    (- (char-component c 1) 128)))
			  ((or (= lc lc-jp) (= lc lc-jpold))
			   (message "0x%.2x%.2x"
				    (- (char-component c 1) 128)
				    (- (char-component c 2) 128)))))))

$B$r9T$J$C$F$*$$$F!"(BC-x M-= $B$GF@$i$l$k$H;W$$$^$9!#$3$l$O<jH4$-$r$7(B
$B$F$$$F!"(BASCII$B!"(BJIS X 0201-roman$B!"(BJIS X 0208-{1976|1983} $B$7$+BP1~(B
$B$7$F$$$^$;$s!#(B
--
$BJR;3!w#P#F#U(B