procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Juanma Barranquero 2003-02-14 11:09:52 +00:00
parent dcca589608
commit 8393053582
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
leim/ChangeLog
View file

@ -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)

6
leim/quail/uni-input.el
View file

@ -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