[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.34 
emacs/lisp/international/utf-8.el:1.35
*** emacs/lisp/international/utf-8.el:1.34      Wed Sep 17 02:43:36 2003
--- emacs/lisp/international/utf-8.el   Wed Oct  1 20:49:04 2003
***************
*** 448,459 ****
  
                            ;; mule-unicode-e000-ffff
                            ;; Fixme: fffe and ffff are invalid.
!                           ((r0 = ,(charset-id 'mule-unicode-e000-ffff))
!                            (r3 -= #xe000)
!                            (r3 //= 96)
!                            (r1 = (r7 + 32))
!                            (r1 += ((r3 + 32) << 7))
!                            (write-multibyte-character r0 r1)))))))))
  
              (if (r0 < #xfe)
                  ;; 4byte encoding
--- 448,466 ----
  
                            ;; mule-unicode-e000-ffff
                            ;; Fixme: fffe and ffff are invalid.
!                           ((r4 = r3)  ; don't zap r3
!                            (lookup-integer utf-subst-table-for-decode r4 r5)
!                            (if r7
!                                ;; got a translation
!                                ((write-multibyte-character r4 r5)
!                                 ;; Zapped through register starvation.
!                                 (r5 = ,(charset-id 'eight-bit-control)))
!                              ((r0 = ,(charset-id 'mule-unicode-e000-ffff))
!                               (r3 -= #xe000)
!                               (r3 //= 96)
!                               (r1 = (r7 + 32))
!                               (r1 += ((r3 + 32) << 7))
!                               (write-multibyte-character r0 r1)))))))))))
  
              (if (r0 < #xfe)
                  ;; 4byte encoding