Commit 693fa2c7 authored by Kenichi Handa's avatar Kenichi Handa

Include U+FF00..U+FFEF in decode table.

parent 18db8896
......@@ -32,7 +32,8 @@
(lambda (pair)
(let ((unicode (car pair))
(char (cadr pair)))
(if (and (>= unicode #x2e80) (<= unicode #xd7a3))
(if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
(and (>= unicode #xff00) (<= unicode #xffef)))
(puthash unicode char ucs-unicode-to-mule-cjk))
(puthash char unicode ucs-mule-cjk-to-unicode)))
'((#xa7 ?”)
......
......@@ -32,7 +32,8 @@
(lambda (pair)
(let ((unicode (car pair))
(char (cadr pair)))
(if (and (>= unicode #x2e80) (<= unicode #xd7a3))
(if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
(and (>= unicode #xff00) (<= unicode #xffef)))
(puthash unicode char ucs-unicode-to-mule-cjk))
(puthash char unicode ucs-mule-cjk-to-unicode)))
'((#xa4 ?¤)
......
......@@ -47,7 +47,8 @@
(let ((unicode (car pair))
(char (cadr pair)))
;; exclude non-CJK components from decode table
(if (and (>= unicode #x2e80) (<= unicode #xd7a3))
(if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
(and (>= unicode #xff00) (<= unicode #xffef)))
(puthash unicode char ucs-unicode-to-mule-cjk))
(puthash char unicode ucs-mule-cjk-to-unicode)))
'(
......
......@@ -31,7 +31,8 @@
(lambda (pair)
(let ((unicode (car pair))
(char (cadr pair)))
(if (and (>= unicode #x2e80) (<= unicode #xd7a3))
(if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
(and (>= unicode #xff00) (<= unicode #xffef)))
(puthash unicode char ucs-unicode-to-mule-cjk))
(puthash char unicode ucs-mule-cjk-to-unicode)))
'((#xa1 ?)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment