/[emacs]/emacs/lisp/international/utf-8.el
ViewVC logotype

Diff of /emacs/lisp/international/utf-8.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.26 by handa, Tue Mar 18 04:06:48 2003 UTC revision 1.27 by handa, Wed Mar 19 23:34:36 2003 UTC
# Line 479  default.  Also, installing them may be r Line 479  default.  Also, installing them may be r
479                           (write-multibyte-character r5 r3))                           (write-multibyte-character r5 r3))
480                       (write-multibyte-character r6 r3))                       (write-multibyte-character r6 r3))
481                     (if (r0 >= #xf8)     ; 5- or 6-byte encoding                     (if (r0 >= #xf8)     ; 5- or 6-byte encoding
482                         ((read r1)                         ((r0 = -1)
483                          (if (r1 < #xa0)                          (read r0)
484                              (if (r1 < #x80) ; invalid byte                          (if (r0 < #xa0)
485                                  (write r1)                              (if (r0 < #x80) ; invalid byte
486                                (write-multibyte-character r5 r1))                                  (write r0)
487                            (write-multibyte-character r6 r1))                                (write-multibyte-character r5 r0))
488                              (write-multibyte-character r6 r0))
489                          (if (r0 >= #xfc) ; 6-byte                          (if (r0 >= #xfc) ; 6-byte
490                              ((read r1)                              ((r0 = -1)
491                               (if (r1 < #xa0)                               (read r0)
492                                   (if (r1 < #x80) ; invalid byte                               (if (r0 < #xa0)
493                                       (write r1)                                   (if (r0 < #x80) ; invalid byte
494                                     (write-multibyte-character r5 r1))                                       (write r0)
495                                 (write-multibyte-character r6 r1)))))))                                     (write-multibyte-character r5 r0))
496                                   (write-multibyte-character r6 r0)))))))
497                  ;; else invalid byte >= #xfe                  ;; else invalid byte >= #xfe
498                  (write-multibyte-character r6 r0))))))                  (write-multibyte-character r6 r0))))))
499        (repeat)))        (repeat)))

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26