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