Mercurial > emacs

comparison leim/quail/uni-input.el @ 49793:3994dfe96c97

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(utf-8-ccl-encode): Fix use of character constants.
author Juanma Barranquero <lekktu@gmail.com>
date Fri, 14 Feb 2003 11:09:03 +0000
parents 44b4a14ae7fc
children 695cf19ef79e d7ddb3e565de
comparison
equal deleted inserted replaced
49792:fe5c6e53c249 49793:3994dfe96c97
48 ((write ((r0 >> 12) | ?\xE0)) 48 ((write ((r0 >> 12) | ?\xE0))
49 (write (((r0 >> 6) & ?\x3F) | ?\x80)) 49 (write (((r0 >> 6) & ?\x3F) | ?\x80))
50 (write ((r0 & ?\x3F) | ?\x80))) 50 (write ((r0 & ?\x3F) | ?\x80)))
51 (if (r0 < #x200000) 51 (if (r0 < #x200000)
52 ((write ((r0 >> 18) | ?\xF0)) 52 ((write ((r0 >> 18) | ?\xF0))
53 (write (((r0 >> 12) & ?\3F) | ?\x80)) 53 (write (((r0 >> 12) & ?\x3F) | ?\x80))
54 (write (((r0 >> 6) & ?\x3F) | ?\x80)) 54 (write (((r0 >> 6) & ?\x3F) | ?\x80))
55 (write ((r0 & ?\x3F) | ?\x80))) 55 (write ((r0 & ?\x3F) | ?\x80)))
56 (if (r0 < #x4000000) 56 (if (r0 < #x4000000)
57 ((write ((r0 >> 24) | ?\xF8)) 57 ((write ((r0 >> 24) | ?\xF8))
58 (write (((r0 >> 18) & ?\x3F) | ?\x80)) 58 (write (((r0 >> 18) & ?\x3F) | ?\x80))
59 (write (((r0 >> 12) & ?\x3F) | ?\x80)) 59 (write (((r0 >> 12) & ?\x3F) | ?\x80))
60 (write (((r0 >> 6) & ?\x3F) | ?\x80)) 60 (write (((r0 >> 6) & ?\x3F) | ?\x80))
61 (write ((r0 & ?\x3f) | ?\x80))) 61 (write ((r0 & ?\x3F) | ?\x80)))
62 ((write ((r0 >> 30) | ?\xFC)) 62 ((write ((r0 >> 30) | ?\xFC))
63 (write (((r0 >> 24) & ?\x3F) | ?\x80)) 63 (write (((r0 >> 24) & ?\x3F) | ?\x80))
64 (write (((r0 >> 18) & ?\x3F) | ?\x80)) 64 (write (((r0 >> 18) & ?\x3F) | ?\x80))
65 (write (((r0 >> 12) & ?\x3F) | ?\x80)) 65 (write (((r0 >> 12) & ?\x3F) | ?\x80))
66 (write (((r0 >> 6) & ?\x3F) | ?\x80)) 66 (write (((r0 >> 6) & ?\x3F) | ?\x80))
67 (write ((r0 & ?\x3f) | ?\x80)))))))))) 67 (write ((r0 & ?\x3F) | ?\x80))))))))))
68 68
69 (defun ucs-input-method (key) 69 (defun ucs-input-method (key)
70 (if (or buffer-read-only 70 (if (or buffer-read-only
71 (and (/= key ?U) (/= key ?u))) 71 (and (/= key ?U) (/= key ?u)))
72 (list key) 72 (list key)