Mercurial > emacs
comparison lisp/international/utf-8.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 13:24:35 +0000 |
| parents | 79573bfb2899 |
| children | 575609f03daa d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 49597:e88404e8f2cf | 49598:0d8b17d428b5 |
|---|---|
| 401 (if (r2 < #x80) | 401 (if (r2 < #x80) |
| 402 (write r2) | 402 (write r2) |
| 403 (if (r2 < #xa0) | 403 (if (r2 < #xa0) |
| 404 (write-multibyte-character r5 r2) | 404 (write-multibyte-character r5 r2) |
| 405 (write-multibyte-character r6 r2)))) | 405 (write-multibyte-character r6 r2)))) |
| 406 | 406 |
| 407 ;; mule-unicode-0100-24ff (>= 0800) | 407 ;; mule-unicode-0100-24ff (>= 0800) |
| 408 ((if (r3 < #x2500) | 408 ((if (r3 < #x2500) |
| 409 ((r0 = ,(charset-id 'mule-unicode-0100-24ff)) | 409 ((r0 = ,(charset-id 'mule-unicode-0100-24ff)) |
| 410 (r3 -= #x0100) | 410 (r3 -= #x0100) |
| 411 (r3 //= 96) | 411 (r3 //= 96) |
| 412 (r1 = (r7 + 32)) | 412 (r1 = (r7 + 32)) |
| 413 (r1 += ((r3 + 32) << 7)) | 413 (r1 += ((r3 + 32) << 7)) |
| 414 (translate-character | 414 (translate-character |
| 415 utf-translation-table-for-decode r0 r1) | 415 utf-translation-table-for-decode r0 r1) |
| 416 (write-multibyte-character r0 r1)) | 416 (write-multibyte-character r0 r1)) |
| 417 | 417 |
| 418 ;; mule-unicode-2500-33ff | 418 ;; mule-unicode-2500-33ff |
| 419 (if (r3 < #x3400) | 419 (if (r3 < #x3400) |
| 420 ((r4 = r3) ; don't zap r3 | 420 ((r4 = r3) ; don't zap r3 |
| 421 (lookup-integer utf-subst-table-for-decode r4 r5) | 421 (lookup-integer utf-subst-table-for-decode r4 r5) |
| 422 (if r7 | 422 (if r7 |
| 462 (write-multibyte-character r3 r1) | 462 (write-multibyte-character r3 r1) |
| 463 (if (r2 < #xa0) | 463 (if (r2 < #xa0) |
| 464 (r3 = r5) | 464 (r3 = r5) |
| 465 (r3 = r6)) | 465 (r3 = r6)) |
| 466 (write-multibyte-character r3 r2)) | 466 (write-multibyte-character r3 r2)) |
| 467 | 467 |
| 468 ;; mule-unicode-e000-ffff | 468 ;; mule-unicode-e000-ffff |
| 469 ;; Fixme: fffe and ffff are invalid. | 469 ;; Fixme: fffe and ffff are invalid. |
| 470 ((r0 = ,(charset-id 'mule-unicode-e000-ffff)) | 470 ((r0 = ,(charset-id 'mule-unicode-e000-ffff)) |
| 471 (r3 -= #xe000) | 471 (r3 -= #xe000) |
| 472 (r3 //= 96) | 472 (r3 //= 96) |