aboutsummaryrefslogtreecommitdiffstats
path: root/leim
diff options
context:
space:
mode:
authorJuanma Barranquero <[email protected]>2003-02-14 11:09:52 +0000
committerJuanma Barranquero <[email protected]>2003-02-14 11:09:52 +0000
commit83930535822b5a44809c0e3969f03c9ebdcf2ce2 (patch)
tree97da96a230d2750d5aa0b06b0c1f3bab12c8c3a4 /leim
parentdcca5896089d58bc1c70d0c446c592e1eb935a40 (diff)
(utf-8-ccl-encode): Fix use of character constants.
Diffstat (limited to 'leim')
-rw-r--r--leim/ChangeLog5
-rw-r--r--leim/quail/uni-input.el6
2 files changed, 8 insertions, 3 deletions
diff --git a/leim/ChangeLog b/leim/ChangeLog
index 1664dd412e..09cd588735 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,8 @@
+2003-02-14 Juanma Barranquero <[email protected]>
+
+ * quail/uni-input.el (utf-8-ccl-encode): Fix use of character
+ constants.
+
2003-02-11 KAWABATA, Taichi <[email protected]>
* quail/indian.el (punjabi-itrans, gujarati-itrans, oriya-itrans)
diff --git a/leim/quail/uni-input.el b/leim/quail/uni-input.el
index b89b9a613e..b8907578be 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