Mercurial > emacs
comparison lisp/international/utf-8.el @ 46676:f0b8a25b0b7d
comment
author | Dave Love <fx@gnu.org> |
---|---|
date | Wed, 24 Jul 2002 22:23:44 +0000 |
parents | 395e5c46761b |
children | 2d6a05542b5b |
comparison
equal
deleted
inserted
replaced
46675:253e228beb5f | 46676:f0b8a25b0b7d |
---|---|
339 (r3 = r5) | 339 (r3 = r5) |
340 (r3 = r6)) | 340 (r3 = r6)) |
341 (write-multibyte-character r3 r2)))) | 341 (write-multibyte-character r3 r2)))) |
342 | 342 |
343 ;; Surrogates, U+D800 .. U+DFFF | 343 ;; Surrogates, U+D800 .. U+DFFF |
344 ;; Fixme: process them properly. | |
345 (if (r3 < #xe000) | 344 (if (r3 < #xe000) |
346 ((r3 = r6) | 345 ((r3 = r6) |
347 (write-multibyte-character r3 r0) ; eight-bit-graphic | 346 (write-multibyte-character r3 r0) ; eight-bit-graphic |
348 (if (r1 < #xa0) | 347 (if (r1 < #xa0) |
349 (r3 = r5)) | 348 (r3 = r5)) |