Mercurial > emacs

comparison lisp/international/subst-ksc.el @ 52724:22bb6971e35f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Include U+FF00..U+FFEF in decode table.
author Kenichi Handa <handa@m17n.org>
date Thu, 02 Oct 2003 00:47:40 +0000
parents 695cf19ef79e
children 6e677a935fe9
comparison
equal deleted inserted replaced
52723:f33d2cba6bb7 52724:22bb6971e35f
29 29
30 (mapc 30 (mapc
31 (lambda (pair) 31 (lambda (pair)
32 (let ((unicode (car pair)) 32 (let ((unicode (car pair))
33 (char (cadr pair))) 33 (char (cadr pair)))
34 (if (and (>= unicode #x2e80) (<= unicode #xd7a3)) 34 (if (or (and (>= unicode #x2e80) (<= unicode #xd7a3))
35 (and (>= unicode #xff00) (<= unicode #xffef)))
35 (puthash unicode char ucs-unicode-to-mule-cjk)) 36 (puthash unicode char ucs-unicode-to-mule-cjk))
36 (puthash char unicode ucs-mule-cjk-to-unicode))) 37 (puthash char unicode ucs-mule-cjk-to-unicode)))
37 '((#xa1 ?¢®) 38 '((#xa1 ?¢®)
38 (#xa4 ?¢´) 39 (#xa4 ?¢´)
39 (#xa7 ?¡×) 40 (#xa7 ?¡×)