Commit c1136bda authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(ccl-encode-mule-utf-8): Fix previous change.

parent 092de21d
2004-06-14 Kenichi Handa <handa@m17n.org>
* international/utf-8.el (ccl-encode-mule-utf-8): Fix previous
change.
2004-06-13 Richard M. Stallman <rms@gnu.org>
* textmodes/paragraphs.el (sentence-end): Add 0x5397d as close brace.
......
......@@ -684,10 +684,9 @@ eight-bit-control and eight-bit-graphic characters.")
;; 0000 0yyy yyxx xxxx 110y yyyy 10xx xxxx
;; 20 0000 0000 1010 0000 1100 0010 1010 0000
;; 7f 0000 0000 1111 1111 1100 0011 1011 1111
((r0 = (((r1 & #x40) >> 6) | #xc2))
((write ((r1 >> 6) | #xc2))
(r1 &= #x3f)
(r1 |= #x80)
(write r0)
(write-repeat r1)))
(if (r0 == ,(charset-id 'mule-unicode-0100-24ff))
......@@ -759,15 +758,13 @@ eight-bit-control and eight-bit-graphic characters.")
(if (r0 < #x800)
;; 2byte encoding
((write ((r0 >> 6) | #xC0))
(r1 &= #x3F)
(r1 |= #x80)
(write-repeat r1))
(r0 = ((r0 & #x3F) | #x80))
(write-repeat r0))
;; 3byte encoding
((write ((r0 >> 12) | #xE0))
(write (((r0 & #x0FC0) >> 6) | #x80))
(r1 &= #x3F)
(r1 |= #x80)
(write-repeat r1))))
(r0 = ((r0 & #x3F) | #x80))
(write-repeat r0))))
;; Unsupported character.
;; Output U+FFFD, which is `ef bf bd' in UTF-8.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment