403 |
(if (r2 < #xa0) |
(if (r2 < #xa0) |
404 |
(write-multibyte-character r5 r2) |
(write-multibyte-character r5 r2) |
405 |
(write-multibyte-character r6 r2)))) |
(write-multibyte-character r6 r2)))) |
406 |
|
|
407 |
;; mule-unicode-0100-24ff (>= 0800) |
;; mule-unicode-0100-24ff (>= 0800) |
408 |
((if (r3 < #x2500) |
((if (r3 < #x2500) |
409 |
((r0 = ,(charset-id 'mule-unicode-0100-24ff)) |
((r0 = ,(charset-id 'mule-unicode-0100-24ff)) |
414 |
(translate-character |
(translate-character |
415 |
utf-translation-table-for-decode r0 r1) |
utf-translation-table-for-decode r0 r1) |
416 |
(write-multibyte-character r0 r1)) |
(write-multibyte-character r0 r1)) |
417 |
|
|
418 |
;; mule-unicode-2500-33ff |
;; mule-unicode-2500-33ff |
419 |
(if (r3 < #x3400) |
(if (r3 < #x3400) |
420 |
((r4 = r3) ; don't zap r3 |
((r4 = r3) ; don't zap r3 |
464 |
(r3 = r5) |
(r3 = r5) |
465 |
(r3 = r6)) |
(r3 = r6)) |
466 |
(write-multibyte-character r3 r2)) |
(write-multibyte-character r3 r2)) |
467 |
|
|
468 |
;; mule-unicode-e000-ffff |
;; mule-unicode-e000-ffff |
469 |
;; Fixme: fffe and ffff are invalid. |
;; Fixme: fffe and ffff are invalid. |
470 |
((r0 = ,(charset-id 'mule-unicode-e000-ffff)) |
((r0 = ,(charset-id 'mule-unicode-e000-ffff)) |