changeset 35252:496f65930f98

(define-ccl-program): Fix docstring.
author Kenichi Handa <handa@m17n.org>
date Fri, 12 Jan 2001 05:40:00 +0000
parents 6d3baf596704
children f91221a90a44
files lisp/international/ccl.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/ccl.el	Fri Jan 12 05:39:33 2001 +0000
+++ b/lisp/international/ccl.el	Fri Jan 12 05:40:00 2001 +0000
@@ -1322,7 +1322,7 @@
 	;; multibyte representation, set REG_0 to the charset ID of
 	;; the character, set REG_1 to the code point of the
 	;; character.  If the dimension of charset is two, set REG_1
-	;; to ((CODE0 << 8) | CODE1), where CODE0 is the first code
+	;; to ((CODE0 << 7) | CODE1), where CODE0 is the first code
 	;; point and CODE1 is the second code point.
 	| (read-multibyte-character REG_0 REG_1)
 
@@ -1351,7 +1351,7 @@
 	;; Write a multibyte representation of a character whose
 	;; charset ID is REG_0 and code point is REG_1.  If the
 	;; dimension of the charset is two, REG_1 should be ((CODE0 <<
-	;; 8) | CODE1), where CODE0 is the first code point and CODE1
+	;; 7) | CODE1), where CODE0 is the first code point and CODE1
 	;; is the second code point of the character.
 	| (write-multibyte-character REG_0 REG_1)