mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

(ccl-decode-mule-utf-8): Lookup

Browse Source 
utf-subst-table-for-decode even for U+E000..U+FFFF.
This commit is contained in:
Kenichi Handa 2003-10-02 00:50:33 +00:00
parent 693fa2c711
commit 98fe1969ff
2 changed files with 24 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/ChangeLog
View File

@ -1,3 +1,14 @@
2003-10-02 Kenichi Handa <handa@m17n.org>
* international/utf-8.el (ccl-decode-mule-utf-8): Lookup
utf-subst-table-for-decode even for U+E000..U+FFFF.
* international/subst-jis.el: Include U+FF00..U+FFEF in decode
table.
* international/subst-big5.el: Likewise.
* international/subst-gb2312.el: Likewise
* international/subst-ksc.el: Likewise.
2003-10-01 Glenn Morris <gmorris@ast.cam.ac.uk>
* calendar/calendar.el (increment-calendar-month)

19
lisp/international/utf-8.el
View File

@ -448,12 +448,19 @@ default. Also, installing them may be rather slow."
;; mule-unicode-e000-ffff
;; Fixme: fffe and ffff are invalid.
((r0 = ,(charset-id 'mule-unicode-e000-ffff))
(r3 -= #xe000)
(r3 //= 96)
(r1 = (r7 + 32))
(r1 += ((r3 + 32) << 7))
(write-multibyte-character r0 r1)))))))))
((r4 = r3) ; don't zap r3
(lookup-integer utf-subst-table-for-decode r4 r5)
(if r7
;; got a translation
((write-multibyte-character r4 r5)
;; Zapped through register starvation.
(r5 = ,(charset-id 'eight-bit-control)))
((r0 = ,(charset-id 'mule-unicode-e000-ffff))
(r3 -= #xe000)
(r3 //= 96)
(r1 = (r7 + 32))
(r1 += ((r3 + 32) << 7))
(write-multibyte-character r0 r1)))))))))))
(if (r0 < #xfe)
;; 4byte encoding