mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Kenichi Handa 2003-10-02 00:47:40 +00:00
parent 18db88965e
commit 693fa2c711
4 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/international/subst-big5.el
View File

@ -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 ?¡±)

3
lisp/international/subst-gb2312.el
View File

@ -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 ?¡è)

3
lisp/international/subst-jis.el
View File

@ -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)))
'(

3
lisp/international/subst-ksc.el
View File

@ -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 ?¢®)