[Emacs-diffs] Changes to emacs/lisp/international/utf-8.el

[Kenichi Handa]

Index: emacs/lisp/international/utf-8.el
diff -c emacs/lisp/international/utf-8.el:1.26 
emacs/lisp/international/utf-8.el:1.27
*** emacs/lisp/international/utf-8.el:1.26      Mon Mar 17 23:06:48 2003
--- emacs/lisp/international/utf-8.el   Wed Mar 19 18:34:36 2003
***************
*** 479,497 ****
                         (write-multibyte-character r5 r3))
                     (write-multibyte-character r6 r3))
                   (if (r0 >= #xf8)     ; 5- or 6-byte encoding
!                      ((read r1)
!                       (if (r1 < #xa0)
!                           (if (r1 < #x80) ; invalid byte
!                               (write r1)
!                             (write-multibyte-character r5 r1))
!                         (write-multibyte-character r6 r1))
                        (if (r0 >= #xfc) ; 6-byte
!                           ((read r1)
!                            (if (r1 < #xa0)
!                                (if (r1 < #x80) ; invalid byte
!                                    (write r1)
!                                  (write-multibyte-character r5 r1))
!                              (write-multibyte-character r6 r1)))))))
                ;; else invalid byte >= #xfe
                (write-multibyte-character r6 r0))))))
        (repeat)))
--- 479,499 ----
                         (write-multibyte-character r5 r3))
                     (write-multibyte-character r6 r3))
                   (if (r0 >= #xf8)     ; 5- or 6-byte encoding
!                      ((r0 = -1)
!                       (read r0)
!                       (if (r0 < #xa0)
!                           (if (r0 < #x80) ; invalid byte
!                               (write r0)
!                             (write-multibyte-character r5 r0))
!                         (write-multibyte-character r6 r0))
                        (if (r0 >= #xfc) ; 6-byte
!                           ((r0 = -1)
!                            (read r0)
!                            (if (r0 < #xa0)
!                                (if (r0 < #x80) ; invalid byte
!                                    (write r0)
!                                  (write-multibyte-character r5 r0))
!                              (write-multibyte-character r6 r0)))))))
                ;; else invalid byte >= #xfe
                (write-multibyte-character r6 r0))))))
        (repeat)))