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

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 1664dd412ec1e30f62f78ae3a6ae955e9e6e7e7f..09cd588735f7ad4203c8f37978cdad4b039b223b 100644 (file)
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,8 @@
+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)

diff --git a/leim/quail/uni-input.el b/leim/quail/uni-input.el
index b89b9a613e65edcc2f2d5a0f7cc2e147fb724678..b8907578be03e8bf35ca5d7e0d2e5d30f788f424 100644 (file)
--- a/leim/quail/uni-input.el
+++ b/leim/quail/uni-input.el
@@ -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