/[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.23 by fx, Fri Jan 3 20:12:51 2003 UTC revision 1.24 by lektu, Tue Feb 4 13:09:38 2003 UTC
# Line 403  default.  Also, installing them may be r Line 403  default.  Also, installing them may be r
403                          (if (r2 < #xa0)                          (if (r2 < #xa0)
404                              (write-multibyte-character r5 r2)                              (write-multibyte-character r5 r2)
405                            (write-multibyte-character r6 r2))))                            (write-multibyte-character r6 r2))))
406                    
407                     ;; mule-unicode-0100-24ff (>= 0800)                     ;; mule-unicode-0100-24ff (>= 0800)
408                     ((if (r3 < #x2500)                     ((if (r3 < #x2500)
409                          ((r0 = ,(charset-id 'mule-unicode-0100-24ff))                          ((r0 = ,(charset-id 'mule-unicode-0100-24ff))
# Line 414  default.  Also, installing them may be r Line 414  default.  Also, installing them may be r
414                           (translate-character                           (translate-character
415                            utf-translation-table-for-decode r0 r1)                            utf-translation-table-for-decode r0 r1)
416                           (write-multibyte-character r0 r1))                           (write-multibyte-character r0 r1))
417                        
418                        ;; mule-unicode-2500-33ff                        ;; mule-unicode-2500-33ff
419                        (if (r3 < #x3400)                        (if (r3 < #x3400)
420                            ((r4 = r3)    ; don't zap r3                            ((r4 = r3)    ; don't zap r3
# Line 464  default.  Also, installing them may be r Line 464  default.  Also, installing them may be r
464                                     (r3 = r5)                                     (r3 = r5)
465                                   (r3 = r6))                                   (r3 = r6))
466                                 (write-multibyte-character r3 r2))                                 (write-multibyte-character r3 r2))
467                            
468                              ;; mule-unicode-e000-ffff                              ;; mule-unicode-e000-ffff
469                              ;; Fixme: fffe and ffff are invalid.                              ;; Fixme: fffe and ffff are invalid.
470                              ((r0 = ,(charset-id 'mule-unicode-e000-ffff))                              ((r0 = ,(charset-id 'mule-unicode-e000-ffff))

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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