/[emacs]/emacs/leim/quail/uni-input.el
ViewVC logotype

Diff of /emacs/leim/quail/uni-input.el

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

revision 1.3 by pj, Tue Dec 25 10:49:31 2001 UTC revision 1.3.4.1 by miles, Fri Apr 4 06:19:54 2003 UTC
# Line 50  Line 50 
50               (write ((r0 & ?\x3F) | ?\x80)))               (write ((r0 & ?\x3F) | ?\x80)))
51            (if (r0 < #x200000)            (if (r0 < #x200000)
52                ((write ((r0 >> 18) | ?\xF0))                ((write ((r0 >> 18) | ?\xF0))
53                 (write (((r0 >> 12) & ?\3F) | ?\x80))                 (write (((r0 >> 12) & ?\x3F) | ?\x80))
54                 (write (((r0 >> 6) & ?\x3F) | ?\x80))                 (write (((r0 >> 6) & ?\x3F) | ?\x80))
55                 (write ((r0 & ?\x3F) | ?\x80)))                 (write ((r0 & ?\x3F) | ?\x80)))
56              (if (r0 < #x4000000)              (if (r0 < #x4000000)
# Line 58  Line 58 
58                   (write (((r0 >> 18) & ?\x3F) | ?\x80))                   (write (((r0 >> 18) & ?\x3F) | ?\x80))
59                   (write (((r0 >> 12) & ?\x3F) | ?\x80))                   (write (((r0 >> 12) & ?\x3F) | ?\x80))
60                   (write (((r0 >> 6) & ?\x3F) | ?\x80))                   (write (((r0 >> 6) & ?\x3F) | ?\x80))
61                   (write ((r0 & ?\x3f) | ?\x80)))                   (write ((r0 & ?\x3F) | ?\x80)))
62                ((write ((r0 >> 30) | ?\xFC))                ((write ((r0 >> 30) | ?\xFC))
63                 (write (((r0 >> 24) & ?\x3F) | ?\x80))                 (write (((r0 >> 24) & ?\x3F) | ?\x80))
64                 (write (((r0 >> 18) & ?\x3F) | ?\x80))                 (write (((r0 >> 18) & ?\x3F) | ?\x80))
65                 (write (((r0 >> 12) & ?\x3F) | ?\x80))                 (write (((r0 >> 12) & ?\x3F) | ?\x80))
66                 (write (((r0 >> 6) & ?\x3F) | ?\x80))                 (write (((r0 >> 6) & ?\x3F) | ?\x80))
67                 (write ((r0 & ?\x3f) | ?\x80))))))))))                 (write ((r0 & ?\x3F) | ?\x80))))))))))
68    
69  (defun ucs-input-method (key)  (defun ucs-input-method (key)
70    (if (or buffer-read-only    (if (or buffer-read-only

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.4.1

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