# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1045220943 0
# Node ID 3994dfe96c979e630c53feff62c04f7ef86035f2
# Parent  fe5c6e53c24919e197f725b496a47d752ae79179
(utf-8-ccl-encode): Fix use of character constants.

diff -r fe5c6e53c249 -r 3994dfe96c97 leim/quail/uni-input.el
--- a/leim/quail/uni-input.el	Fri Feb 14 10:01:29 2003 +0000
+++ b/leim/quail/uni-input.el	Fri Feb 14 11:09:03 2003 +0000
@@ -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