1 ;;; eucjp-ms.el -- translation table for eucJP-ms. -*- no-byte-compile: t -*-
2 ;;; Automatically generated from /usr/share/i18n/charmaps/EUC-JP-MS.gz
2076 (let ((code (logand (car x
) #x7F7F
)))
2077 (if (integerp (cdr x
))
2078 (setcar x
(decode-char 'japanese-jisx0208 code
))
2079 (setcar x
(decode-char 'japanese-jisx0212 code
))
2080 (setcdr x
(cadr x
)))))
2082 (define-translation-table 'eucjp-ms-decode map
)
2084 (let ((tmp (car x
)))
2085 (setcar x
(cdr x
)) (setcdr x tmp
)))
2087 (define-translation-table 'eucjp-ms-encode map
))
2089 ;; arch-tag: c4191096-288a-4f13-9b2a-ee7a1f11eb4a