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) |
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 |