Commit 83930535 authored by Juanma Barranquero's avatar Juanma Barranquero

(utf-8-ccl-encode): Fix use of character constants.

parent dcca5896
2003-02-14 Juanma Barranquero <lektu@terra.es>
* quail/uni-input.el (utf-8-ccl-encode): Fix use of character
constants.
2003-02-11 KAWABATA, Taichi <kawabata@m17n.org>
* quail/indian.el (punjabi-itrans, gujarati-itrans, oriya-itrans)
......
......@@ -50,7 +50,7 @@
(write ((r0 & ?\x3F) | ?\x80)))
(if (r0 < #x200000)
((write ((r0 >> 18) | ?\xF0))
(write (((r0 >> 12) & ?\3F) | ?\x80))
(write (((r0 >> 12) & ?\x3F) | ?\x80))
(write (((r0 >> 6) & ?\x3F) | ?\x80))
(write ((r0 & ?\x3F) | ?\x80)))
(if (r0 < #x4000000)
......@@ -58,13 +58,13 @@
(write (((r0 >> 18) & ?\x3F) | ?\x80))
(write (((r0 >> 12) & ?\x3F) | ?\x80))
(write (((r0 >> 6) & ?\x3F) | ?\x80))
(write ((r0 & ?\x3f) | ?\x80)))
(write ((r0 & ?\x3F) | ?\x80)))
((write ((r0 >> 30) | ?\xFC))
(write (((r0 >> 24) & ?\x3F) | ?\x80))
(write (((r0 >> 18) & ?\x3F) | ?\x80))
(write (((r0 >> 12) & ?\x3F) | ?\x80))
(write (((r0 >> 6) & ?\x3F) | ?\x80))
(write ((r0 & ?\x3f) | ?\x80))))))))))
(write ((r0 & ?\x3F) | ?\x80))))))))))
(defun ucs-input-method (key)
(if (or buffer-read-only
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment