Mercurial > emacs

comparison lisp/international/utf-8.el @ 36522:898d0f4abcad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Kenichi Handa <handa@m17n.org>
date Mon, 05 Mar 2001 07:21:30 +0000
parents f968e313e8ad
children b095952a8678
comparison
equal deleted inserted replaced
36521:4c211a545642 36522:898d0f4abcad
137 (write-multibyte-character r0 r1)) 137 (write-multibyte-character r0 r1))
138 138
139 ;; U+3400 .. U+DFFF 139 ;; U+3400 .. U+DFFF
140 ;; keep those bytes as eight-bit-{control|graphic} 140 ;; keep those bytes as eight-bit-{control|graphic}
141 (if (r3 < #xe000) 141 (if (r3 < #xe000)
142 (;; #xe0 < r0 < #xf0, so r0 is eight-bit-graphic 142 (;; #xe0 <= r0 < #xf0, so r0 is eight-bit-graphic
143 (r3 = ,(charset-id 'eight-bit-graphic)) 143 (r3 = ,(charset-id 'eight-bit-graphic))
144 (write-multibyte-character r3 r0) 144 (write-multibyte-character r3 r0)
145 (if (r1 < #xa0) 145 (if (r1 < #xa0)
146 (r3 = ,(charset-id 'eight-bit-control))) 146 (r3 = ,(charset-id 'eight-bit-control)))
147 (write-multibyte-character r3 r1) 147 (write-multibyte-character r3 r1)