diff options
| author | Kenichi Handa <handa@m17n.org> | 2004-06-13 22:57:46 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2004-06-13 22:57:46 +0000 |
| commit | c1136bda637a0dfd25c68a3113992780c62ff0b1 (patch) | |
| tree | e92a89ec6f63b3063523ef1d83bba52d44a1960c /lisp/international | |
| parent | 092de21d0b192c737e6f3ca52563bf5ac03c885f (diff) | |
| download | emacs-c1136bda637a0dfd25c68a3113992780c62ff0b1.tar.gz | |
(ccl-encode-mule-utf-8): Fix previous change.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/utf-8.el | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lisp/international/utf-8.el b/lisp/international/utf-8.el index 25ec185f545..77a51abb43f 100644 --- a/lisp/international/utf-8.el +++ b/lisp/international/utf-8.el @@ -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. |