1 ;;; eucjp-ms.el -- translation table for eucJP-ms. -*- no-byte-compile: t -*-
2 ;;; Automatically genrated from eucJP-13th.txt, eucJP-udc.txt, eucJP-ibmext.txt
2075 (if (integerp (cdr x))
2076 (setcar x (decode-char 'japanese-jisx0208 (car x)))
2077 (setcar x (decode-char 'japanese-jisx0212 (car x)))
2078 (setcdr x (cadr x))))
2080 (define-translation-table 'eucjp-ms-decode map)
2082 (let ((tmp (car x)))
2083 (setcar x (cdr x)) (setcdr x tmp)))
2085 (define-translation-table 'eucjp-ms-encode map))
2087 ;; arch-tag: c4191096-288a-4f13-9b2a-ee7a1f11eb4a