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))