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

2 files changed, 8 insertions, 3 deletions

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 1664dd412ec..09cd588735f 100644
--- 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 b89b9a613e6..b8907578be0 100644
--- 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