Mercurial > emacs

comparison lisp/language/japanese.el @ 89770:c0e5e49686a6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add map #x00A6 <-> #xFFE4 to translation tables japanese-ucs-*-map.
author Kenichi Handa <handa@m17n.org>
date Tue, 27 Jan 2004 23:52:31 +0000
parents 292dab2b369e
children 3e22bfaa44de
comparison
equal deleted inserted replaced
89769:95fd0085db37 89770:c0e5e49686a6
66 latin-jisx0201 japanese-jisx0208-1978 66 latin-jisx0201 japanese-jisx0208-1978
67 chinese-gb2312 korean-ksc5601 67 chinese-gb2312 korean-ksc5601
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 ; SJIS vs CP932 71 (let ((map ; JIS vs CP932
72 '((#x301C . #xFF5E) ; WAVE DASH FULLWIDTH TILDE 72 '((#x301C . #xFF5E) ; WAVE DASH FULLWIDTH TILDE
73 (#x2016 . #x2225) ; DOUBLE VERTICAL LINE PARALLEL TO 73 (#x2016 . #x2225) ; DOUBLE VERTICAL LINE PARALLEL TO
74 (#x2212 . #xFF0D) ; MINUS SIGN FULLWIDTH HYPHEN-MINUS 74 (#x2212 . #xFF0D) ; MINUS SIGN FULLWIDTH HYPHEN-MINUS
75 (#x00A2 . #xFFE0) ; CENT SIGN FULLWIDTH CENT SIGN 75 (#x00A2 . #xFFE0) ; CENT SIGN FULLWIDTH CENT SIGN
76 (#x00A3 . #xFFE1) ; POUND SIGN FULLWIDTH POUND SIGN 76 (#x00A3 . #xFFE1) ; POUND SIGN FULLWIDTH POUND SIGN
77 (#x00AC . #xFFE2) ; NOT SIGN FULLWIDTH NOT SIGN 77 (#x00AC . #xFFE2) ; NOT SIGN FULLWIDTH NOT SIGN
78 (#x00A6 . #xFFE4) ; BROKEN LINE FULLWIDTH BROKEN LINE
78 ))) 79 )))
79 (define-translation-table 'japanese-ucs-cp932-map map) 80 (define-translation-table 'japanese-ucs-cp932-map map)
80 (mapc #'(lambda (x) (let ((tmp (car x))) 81 (mapc #'(lambda (x) (let ((tmp (car x)))
81 (setcar x (cdr x)) (setcdr x tmp))) 82 (setcar x (cdr x)) (setcdr x tmp)))
82 map) 83 map)