Commit e41ef4d4 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

Use utf-translate-cjk-substitutable-p.

parent fce59e40
......@@ -32,9 +32,9 @@
(lambda (pair)
(let ((unicode (car pair))
(char (cadr pair)))
(if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
(and (>= unicode #xff00) (<= unicode #xffef)))
(puthash unicode char ucs-unicode-to-mule-cjk))
;; exclude non-supporting components from decode table
(if (utf-translate-cjk-substitutable-p unicode)
(puthash unicode char ucs-unicode-to-mule-cjk))
(puthash char unicode ucs-mule-cjk-to-unicode)))
'((#xa7 ?”)
(#xaf ?÷)
......
......@@ -32,9 +32,9 @@
(lambda (pair)
(let ((unicode (car pair))
(char (cadr pair)))
(if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
(and (>= unicode #xff00) (<= unicode #xffef)))
(puthash unicode char ucs-unicode-to-mule-cjk))
;; exclude non-supporting components from decode table
(if (utf-translate-cjk-substitutable-p unicode)
(puthash unicode char ucs-unicode-to-mule-cjk))
(puthash char unicode ucs-mule-cjk-to-unicode)))
'((#xa4 ?¤)
(#xa7 ?§)
......
......@@ -45,11 +45,11 @@
(mapc
(lambda (pair)
(let ((unicode (car pair))
(char (cadr pair)))
;; exclude non-CJK components from decode table
(if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
(and (>= unicode #xff00) (<= unicode #xffef)))
(puthash unicode char ucs-unicode-to-mule-cjk))
(char (cadr pair))
(tail utf-translate-cjk-unicode-range))
;; exclude non-supporting components from decode table
(if (utf-translate-cjk-substitutable-p unicode)
(puthash unicode char ucs-unicode-to-mule-cjk))
(puthash char unicode ucs-mule-cjk-to-unicode)))
'(
;; jisx0208
......
......@@ -31,9 +31,9 @@
(lambda (pair)
(let ((unicode (car pair))
(char (cadr pair)))
(if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
(and (>= unicode #xff00) (<= unicode #xffef)))
(puthash unicode char ucs-unicode-to-mule-cjk))
;; exclude non-supporting components from decode table
(if (utf-translate-cjk-substitutable-p unicode)
(puthash unicode char ucs-unicode-to-mule-cjk))
(puthash char unicode ucs-mule-cjk-to-unicode)))
'((#xa1 ?)
(#xa4 ?⒋)
......
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