From: Kenichi Handa Date: Tue, 27 Jan 2004 23:52:31 +0000 (+0000) Subject: Add map #x00A6 <-> #xFFE4 to translation tables japanese-ucs-*-map. X-Git-Tag: emacs-pretest-23.0.90~8295^2~1578 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=021a9c9ed20ff8bc25f4c999ad813ab332e4cbbb;p=emacs.git Add map #x00A6 <-> #xFFE4 to translation tables japanese-ucs-*-map. --- diff --git a/lisp/language/japanese.el b/lisp/language/japanese.el index 592b9d151c4..29001650948 100644 --- a/lisp/language/japanese.el +++ b/lisp/language/japanese.el @@ -68,13 +68,14 @@ latin-iso8859-1 greek-iso8859-7) :mime-charset 'iso-2022-jp-2) -(let ((map ; SJIS vs CP932 +(let ((map ; JIS vs CP932 '((#x301C . #xFF5E) ; WAVE DASH FULLWIDTH TILDE (#x2016 . #x2225) ; DOUBLE VERTICAL LINE PARALLEL TO (#x2212 . #xFF0D) ; MINUS SIGN FULLWIDTH HYPHEN-MINUS (#x00A2 . #xFFE0) ; CENT SIGN FULLWIDTH CENT SIGN (#x00A3 . #xFFE1) ; POUND SIGN FULLWIDTH POUND SIGN (#x00AC . #xFFE2) ; NOT SIGN FULLWIDTH NOT SIGN + (#x00A6 . #xFFE4) ; BROKEN LINE FULLWIDTH BROKEN LINE ))) (define-translation-table 'japanese-ucs-cp932-map map) (mapc #'(lambda (x) (let ((tmp (car x)))