Mercurial > emacs

comparison lisp/international/utf-8.el @ 46676:f0b8a25b0b7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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))