Mercurial > emacs

comparison lisp/language/japanese.el @ 89791:3e22bfaa44de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(japanese-ucs-cp932-to-jis-map): Renamed from japanese-ucs-cp932-map. (japanese-ucs-jis-to-cp932-map): Renamed from japanese-ucs-jis-map. (japanese-ucs-glibc-map): Delete this tranlastion table. (japanese-ucs-glibc-to-jis-map): New tranlastion table. (japanese-ucs-jis-to-glibc-map): New tranlastion table.
author Kenichi Handa <handa@m17n.org>
date Mon, 02 Feb 2004 11:43:19 +0000
parents c0e5e49686a6
children 0a96859927ce
comparison
equal deleted inserted replaced
89790:27a1ad5d169f 89791:3e22bfaa44de
68 latin-iso8859-1 greek-iso8859-7) 68 latin-iso8859-1 greek-iso8859-7)
69 :mime-charset 'iso-2022-jp-2) 69 :mime-charset 'iso-2022-jp-2)
70 70
71 (let ((map ; JIS vs CP932 71 (let ((map ; JIS vs CP932
72 '((#x301C . #xFF5E) ; WAVE DASH FULLWIDTH TILDE 72 '((#x301C . #xFF5E) ; WAVE DASH FULLWIDTH TILDE
73 (#x2014 . #x2015) ; EM DASH HORIZONTAL BAR
73 (#x2016 . #x2225) ; DOUBLE VERTICAL LINE PARALLEL TO 74 (#x2016 . #x2225) ; DOUBLE VERTICAL LINE PARALLEL TO
74 (#x2212 . #xFF0D) ; MINUS SIGN FULLWIDTH HYPHEN-MINUS 75 (#x2212 . #xFF0D) ; MINUS SIGN FULLWIDTH HYPHEN-MINUS
75 (#x00A2 . #xFFE0) ; CENT SIGN FULLWIDTH CENT SIGN 76 (#x00A2 . #xFFE0) ; CENT SIGN FULLWIDTH CENT SIGN
76 (#x00A3 . #xFFE1) ; POUND SIGN FULLWIDTH POUND SIGN 77 (#x00A3 . #xFFE1) ; POUND SIGN FULLWIDTH POUND SIGN
77 (#x00AC . #xFFE2) ; NOT SIGN FULLWIDTH NOT SIGN 78 (#x00AC . #xFFE2) ; NOT SIGN FULLWIDTH NOT SIGN
78 (#x00A6 . #xFFE4) ; BROKEN LINE FULLWIDTH BROKEN LINE 79 (#x00A6 . #xFFE4) ; BROKEN LINE FULLWIDTH BROKEN LINE
79 ))) 80 )))
80 (define-translation-table 'japanese-ucs-cp932-map map) 81 (define-translation-table 'japanese-ucs-cp932-to-jis-map map)
81 (mapc #'(lambda (x) (let ((tmp (car x))) 82 (mapc #'(lambda (x) (let ((tmp (car x)))
82 (setcar x (cdr x)) (setcdr x tmp))) 83 (setcar x (cdr x)) (setcdr x tmp)))
83 map) 84 map)
84 (define-translation-table 'japanese-ucs-jis-map map) 85 (define-translation-table 'japanese-ucs-jis-to-cp932-map map))
85 (define-translation-table 'japanese-ucs-glibc-map map))
86 86
87 ;; U+2014 (EM DASH) vs U+2015 (HORIZONTAL BAR) 87 ;; U+2014 (EM DASH) vs U+2015 (HORIZONTAL BAR)
88 (aset (get 'japanese-ucs-cp932-map 'translation-table) #x2014 #x2015) 88 (define-translation-table 'japanese-ucs-glibc-to-jis-map '((#x2015 . #x2014)))
89 (aset (get 'japanese-ucs-jis-map 'translation-table) #x2015 #x2014) 89 (define-translation-table 'japanese-ucs-jis-to-glibc-map '((#x2014 . #x2015)))
90 (aset (get 'japanese-ucs-glibc-map 'translation-table) #x2014 #x2015)
91 90
92 (define-coding-system 'japanese-shift-jis 91 (define-coding-system 'japanese-shift-jis
93 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)" 92 "Shift-JIS 8-bit encoding for Japanese (MIME:SHIFT_JIS)"
94 :coding-type 'shift-jis 93 :coding-type 'shift-jis
95 :mnemonic ?S 94 :mnemonic ?S