changeset 89298:e1d0641b8107

(indian-compose-region): Don't call compose-chars-after, instead call a function registered in composition-function-table.
author Kenichi Handa <handa@m17n.org>
date Thu, 07 Nov 2002 06:30:49 +0000
parents 4a475cc23487
children a89011cf0b79
files lisp/language/ind-util.el
diffstat 1 files changed, 309 insertions(+), 305 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/language/ind-util.el	Thu Nov 07 06:30:22 2002 +0000
+++ b/lisp/language/ind-util.el	Thu Nov 07 06:30:49 2002 +0000
@@ -584,15 +584,19 @@
 
 ;;;###autoload
 (defun indian-compose-region (from to)
-  "Compose the region according to `composition-function-table'. "
+  "Compose the region according to `composition-function-table'."
   (interactive "r")
   (save-excursion
     (save-restriction
-      (let ((pos from) chars (max to))
+      (let ((pos from) newpos func (max to))
 	(narrow-to-region from to)
 	(while (< pos max)
-	  (setq chars (compose-chars-after pos))
-	  (if chars (setq pos (+ pos chars)) (setq pos (1+ pos))))))))
+	  (setq func (aref composition-function-table (char-after pos)))
+	  (if (fboundp func)
+	      (setq newpos (funcall func pos nil)
+		    pos (if (and (integerp newpos) (> newpos pos))
+			    newpos (1+ pos)))
+	    (setq pos (1+ pos))))))))
 
 ;;;###autoload
 (defun indian-compose-string (string)
@@ -629,332 +633,332 @@
 (defconst indian-2-colum-to-ucs
   '(
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2120   $(5!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/(B
-  ("$(5!!(B" . "$,15A(B")
-  ("$(5!"(B" . "$,15B(B")
-  ("$(5!#(B" . "$,15C(B")
-  ("$(5!$(B" . "$,15E(B")
-  ("$(5!%(B" . "$,15F(B")
-  ("$(5!&(B" . "$,15G(B")
-  ("$(5!'(B" . "$,15H(B")
-  ("$(5!((B" . "$,15I(B")
-  ("$(5!)(B" . "$,15J(B")
-  ("$(5!*(B" . "$,15K(B")
-  ("$(5!*"p(B" . "$,15p6#(B")
-  ("$(5!+(B" . "$,15N(B")
-  ("$(5!,(B" . "$,15O(B")
-  ("$(5!-(B" . "$,15P(B")
-  ("$(5!.(B" . "$,15M(B")
-  ("$(5!/(B" . "$,15R(B")
+  ;;2120   $(6!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/(B
+  ("$(6!!(B" . "$,15A(B")
+  ("$(6!"(B" . "$,15B(B")
+  ("$(6!#(B" . "$,15C(B")
+  ("$(6!$(B" . "$,15E(B")
+  ("$(6!%(B" . "$,15F(B")
+  ("$(6!&(B" . "$,15G(B")
+  ("$(6!'(B" . "$,15H(B")
+  ("$(6!((B" . "$,15I(B")
+  ("$(6!)(B" . "$,15J(B")
+  ("$(6!*(B" . "$,15K(B")
+  ("$(6!*"p(B" . "$,15p6#(B")
+  ("$(6!+(B" . "$,15N(B")
+  ("$(6!,(B" . "$,15O(B")
+  ("$(6!-(B" . "$,15P(B")
+  ("$(6!.(B" . "$,15M(B")
+  ("$(6!/(B" . "$,15R(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2130 $(5!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B
-  ("$(5!0(B" . "$,15S(B")
-  ("$(5!1(B" . "$,15T(B")
-  ("$(5!2(B" . "$,15Q(B")
-  ("$(5!3(B" . "$,15U(B")
-  ("$(5!4(B" . "$,15V(B")
-  ("$(5!5(B" . "$,15W(B")
-  ("$(5!6(B" . "$,15X(B")
-  ("$(5!7(B" . "$,15Y(B")
-  ("$(5!8(B" . "$,15Z(B")
-  ("$(5!9(B" . "$,15[(B")
-  ("$(5!:(B" . "$,15\(B")
-  ("$(5!;(B" . "$,15](B")
-  ("$(5!<(B" . "$,15^(B")
-  ("$(5!=(B" . "$,15_(B")
-  ("$(5!>(B" . "$,15`(B")
-  ("$(5!?(B" . "$,15a(B")
+  ;;2130 $(6!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B
+  ("$(6!0(B" . "$,15S(B")
+  ("$(6!1(B" . "$,15T(B")
+  ("$(6!2(B" . "$,15Q(B")
+  ("$(6!3(B" . "$,15U(B")
+  ("$(6!4(B" . "$,15V(B")
+  ("$(6!5(B" . "$,15W(B")
+  ("$(6!6(B" . "$,15X(B")
+  ("$(6!7(B" . "$,15Y(B")
+  ("$(6!8(B" . "$,15Z(B")
+  ("$(6!9(B" . "$,15[(B")
+  ("$(6!:(B" . "$,15\(B")
+  ("$(6!;(B" . "$,15](B")
+  ("$(6!<(B" . "$,15^(B")
+  ("$(6!=(B" . "$,15_(B")
+  ("$(6!>(B" . "$,15`(B")
+  ("$(6!?(B" . "$,15a(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2140 $(5!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O(B
-  ("$(5!@(B" . "$,15b(B")
-  ("$(5!A(B" . "$,15c(B")
-  ("$(5!B(B" . "$,15d(B")
-  ("$(5!C(B" . "$,15e(B")
-  ("$(5!D(B" . "$,15f(B")
-  ("$(5!E(B" . "$,15g(B")
-  ("$(5!F(B" . "$,15h(B")
-  ("$(5!G(B" . "$,15i(B")
-  ("$(5!H(B" . "$,15j(B")
-  ("$(5!I(B" . "$,15k(B")
-  ("$(5!J(B" . "$,15l(B")
-  ("$(5!K(B" . "$,15m(B")
-  ("$(5!L(B" . "$,15n(B")
-  ("$(5!M(B" . "$,15o(B")
-  ("$(5!N(B" . "$,16?(B")
-  ("$(5!O(B" . "$,15p(B")
+  ;;2140 $(6!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O(B
+  ("$(6!@(B" . "$,15b(B")
+  ("$(6!A(B" . "$,15c(B")
+  ("$(6!B(B" . "$,15d(B")
+  ("$(6!C(B" . "$,15e(B")
+  ("$(6!D(B" . "$,15f(B")
+  ("$(6!E(B" . "$,15g(B")
+  ("$(6!F(B" . "$,15h(B")
+  ("$(6!G(B" . "$,15i(B")
+  ("$(6!H(B" . "$,15j(B")
+  ("$(6!I(B" . "$,15k(B")
+  ("$(6!J(B" . "$,15l(B")
+  ("$(6!K(B" . "$,15m(B")
+  ("$(6!L(B" . "$,15n(B")
+  ("$(6!M(B" . "$,15o(B")
+  ("$(6!N(B" . "$,16?(B")
+  ("$(6!O(B" . "$,15p(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2150 $(5!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_(B
-  ("$(5!P(B" . "$,15q(B")
-  ("$(5!Q(B" . "$,15r(B")
-  ("$(5!R(B" . "$,15s(B")
-  ("$(5!S(B" . "$,15t(B")
-  ("$(5!T(B" . "$,15u(B")
-  ("$(5!U(B" . "$,15v(B")
-  ("$(5!V(B" . "$,15w(B")
-  ("$(5!W(B" . "$,15x(B")
-  ("$(5!X(B" . "$,15y(B")
-  ("$(5!Z(B" . "$,15~(B")
-  ("$(5![(B" . "$,15(B")
-  ("$(5!\(B" . "$,16 (B")
-  ("$(5!](B" . "$,16!(B")
-  ("$(5!^(B" . "$,16"(B")
-  ("$(5!_(B" . "$,16#(B")
+  ;;2150 $(6!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_(B
+  ("$(6!P(B" . "$,15q(B")
+  ("$(6!Q(B" . "$,15r(B")
+  ("$(6!R(B" . "$,15s(B")
+  ("$(6!S(B" . "$,15t(B")
+  ("$(6!T(B" . "$,15u(B")
+  ("$(6!U(B" . "$,15v(B")
+  ("$(6!V(B" . "$,15w(B")
+  ("$(6!W(B" . "$,15x(B")
+  ("$(6!X(B" . "$,15y(B")
+  ("$(6!Z(B" . "$,15~(B")
+  ("$(6![(B" . "$,15(B")
+  ("$(6!\(B" . "$,16 (B")
+  ("$(6!](B" . "$,16!(B")
+  ("$(6!^(B" . "$,16"(B")
+  ("$(6!_(B" . "$,16#(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2160 $(5!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o(B
-  ("$(5!`(B" . "$,16&(B")
-  ("$(5!a(B" . "$,16'(B")
-  ("$(5!b(B" . "$,16((B")
-  ("$(5!c(B" . "$,16%(B")
-  ("$(5!d(B" . "$,16*(B")
-  ("$(5!e(B" . "$,16+(B")
-  ("$(5!f(B" . "$,16,(B")
-  ("$(5!g(B" . "$,16)(B")
-  ("$(5!h(B" . "$,16-(B")
-  ("$(5!i(B" . "$,15|(B")
-  ("$(5!j(B" . "$,16D(B")
-  ("$(5!j!j(B" . "$,16E(B")
+  ;;2160 $(6!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o(B
+  ("$(6!`(B" . "$,16&(B")
+  ("$(6!a(B" . "$,16'(B")
+  ("$(6!b(B" . "$,16((B")
+  ("$(6!c(B" . "$,16%(B")
+  ("$(6!d(B" . "$,16*(B")
+  ("$(6!e(B" . "$,16+(B")
+  ("$(6!f(B" . "$,16,(B")
+  ("$(6!g(B" . "$,16)(B")
+  ("$(6!h(B" . "$,16-(B")
+  ("$(6!i(B" . "$,15|(B")
+  ("$(6!j(B" . "$,16D(B")
+  ("$(6!j!j(B" . "$,16E(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2170 $(5!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B
-  ("$(5!q(B" . "$,16F(B")
-  ("$(5!r(B" . "$,16G(B")
-  ("$(5!s(B" . "$,16H(B")
-  ("$(5!t(B" . "$,16I(B")
-  ("$(5!u(B" . "$,16J(B")
-  ("$(5!v(B" . "$,16K(B")
-  ("$(5!w(B" . "$,16L(B")
-  ("$(5!x(B" . "$,16M(B")
-  ("$(5!y(B" . "$,16N(B")
-  ("$(5!z(B" . "$,16O(B")
+  ;;2170 $(6!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B
+  ("$(6!q(B" . "$,16F(B")
+  ("$(6!r(B" . "$,16G(B")
+  ("$(6!s(B" . "$,16H(B")
+  ("$(6!t(B" . "$,16I(B")
+  ("$(6!u(B" . "$,16J(B")
+  ("$(6!v(B" . "$,16K(B")
+  ("$(6!w(B" . "$,16L(B")
+  ("$(6!x(B" . "$,16M(B")
+  ("$(6!y(B" . "$,16N(B")
+  ("$(6!z(B" . "$,16O(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2220   $(5"!"""#"$"%"&"'"(")"*"+","-"."/(B
-  ("$(5"!(B" . "$,16;6-5p(B")
-  ("$(5""(B" . "$,16>6-5p(B")
-  ("$(5"#(B" . "$,15U6-5p(B")
-  ("$(5"$(B" . "$,15W6-5p(B")
-  ("$(5"%(B" . "$,15d6-5p(B")
-  ("$(5"&(B" . "$,15j6-5p(B")
-  ("$(5"'(B" . "$,15k6-5p(B")
-  ("$(5")(B" . "$,15v6-5p(B")
-  ("$(5",(B" . "$,15p6!(B")
-  ("$(5"-(B" . "$,15p6"(B")
-  ("$(5".(B" . "$,15q6!(B")
-  ("$(5"/(B" . "$,15q6"(B")
+  ;;2220   $(6"!"""#"$"%"&"'"(")"*"+","-"."/(B
+  ("$(6"!(B" . "$,16;6-5p(B")
+  ("$(6""(B" . "$,16>6-5p(B")
+  ("$(6"#(B" . "$,15U6-5p(B")
+  ("$(6"$(B" . "$,15W6-5p(B")
+  ("$(6"%(B" . "$,15d6-5p(B")
+  ("$(6"&(B" . "$,15j6-5p(B")
+  ("$(6"'(B" . "$,15k6-5p(B")
+  ("$(6")(B" . "$,15v6-5p(B")
+  ("$(6",(B" . "$,15p6!(B")
+  ("$(6"-(B" . "$,15p6"(B")
+  ("$(6".(B" . "$,15q6!(B")
+  ("$(6"/(B" . "$,15q6"(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2230 $(5"0"1"2"3"4"5"6"7"8"9":";"<"=">"?(B
-  ("$(5"3(B" . "$,15U6-(B")
-  ("$(5"4(B" . "$,15V6-(B")
-  ("$(5"5(B" . "$,15W6-(B")
-  ("$(5"6(B" . "$,15X6-(B")
-  ("$(5"8(B" . "$,15Z6-(B")
-  ("$(5"8"q(B" . "$,15Z6-5p6-(B")
-  ("$(5":(B" . "$,15\6-(B")
-  ("$(5";(B" . "$,15]6-(B")
-  ("$(5"<(B" . "$,15^6-(B")
-  ("$(5"<(B" . "$,15^6-(B")
+  ;;2230 $(6"0"1"2"3"4"5"6"7"8"9":";"<"=">"?(B
+  ("$(6"3(B" . "$,15U6-(B")
+  ("$(6"4(B" . "$,15V6-(B")
+  ("$(6"5(B" . "$,15W6-(B")
+  ("$(6"6(B" . "$,15X6-(B")
+  ("$(6"8(B" . "$,15Z6-(B")
+  ("$(6"8"q(B" . "$,15Z6-5p6-(B")
+  ("$(6":(B" . "$,15\6-(B")
+  ("$(6";(B" . "$,15]6-(B")
+  ("$(6"<(B" . "$,15^6-(B")
+  ("$(6"<(B" . "$,15^6-(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2240 $(5"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O(B
-  ("$(5"A(B" . "$,15c6-(B")
-  ("$(5"B(B" . "$,15d6-(B")
-  ("$(5"C(B" . "$,15e6-(B")
-  ("$(5"E(B" . "$,15g6-(B")
-  ("$(5"F(B" . "$,15h6-(B")
-  ("$(5"G(B" . "$,15i6-(B")
-  ("$(5"H(B" . "$,15j6-(B")
-  ("$(5"I(B" . "$,15k6-(B")
-  ("$(5"J(B" . "$,15l6-(B")
-  ("$(5"J(B" . "$,15l6-(B")
-  ("$(5"K(B" . "$,15m6-(B")
-  ("$(5"L(B" . "$,15n6-(B")
-  ("$(5"M(B" . "$,15o6-(B")
-  ("$(5"N(B" . "$,16?6-(B")
+  ;;2240 $(6"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O(B
+  ("$(6"A(B" . "$,15c6-(B")
+  ("$(6"B(B" . "$,15d6-(B")
+  ("$(6"C(B" . "$,15e6-(B")
+  ("$(6"E(B" . "$,15g6-(B")
+  ("$(6"F(B" . "$,15h6-(B")
+  ("$(6"G(B" . "$,15i6-(B")
+  ("$(6"H(B" . "$,15j6-(B")
+  ("$(6"I(B" . "$,15k6-(B")
+  ("$(6"J(B" . "$,15l6-(B")
+  ("$(6"J(B" . "$,15l6-(B")
+  ("$(6"K(B" . "$,15m6-(B")
+  ("$(6"L(B" . "$,15n6-(B")
+  ("$(6"M(B" . "$,15o6-(B")
+  ("$(6"N(B" . "$,16?6-(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2250 $(5"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_(B
-  ("$(5"Q(B" . "$,15r6-(B")
-  ("$(5"R(B" . "$,15s6-(B")
-  ("$(5"S(B" . "$,15t6-(B")
-  ("$(5"T(B" . "$,15u6-(B")
-  ("$(5"U(B" . "$,15v6-(B")
-  ("$(5"V(B" . "$,15w6-(B")
-  ("$(5"W(B" . "$,15x6-(B")
-  ("$(5"](B" . "$,16-5o(B")
+  ;;2250 $(6"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_(B
+  ("$(6"Q(B" . "$,15r6-(B")
+  ("$(6"R(B" . "$,15s6-(B")
+  ("$(6"S(B" . "$,15t6-(B")
+  ("$(6"T(B" . "$,15u6-(B")
+  ("$(6"U(B" . "$,15v6-(B")
+  ("$(6"V(B" . "$,15w6-(B")
+  ("$(6"W(B" . "$,15x6-(B")
+  ("$(6"](B" . "$,16-5o(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2260 $(5"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o(B
-  ("$(5"`(B" . "$,15W6-5p6-(B")
-  ("$(5"a(B" . "$,15X6-5h6-(B")
-  ("$(5"c(B" . "$,15d6-5d6-(B")
-  ("$(5"d(B" . "$,15d6-5p6-(B")
-  ("$(5"e(B" . "$,15g6-5h6-(B")
-  ("$(5"f(B" . "$,15g6-5p6-(B")
-  ("$(5"g(B" . "$,15j6-5d6-(B")
-  ("$(5"h(B" . "$,15v6-5Z6-(B")
-  ("$(5"i(B" . "$,15v6-5p6-(B")
-  ("$(5"j(B" . "$,15v6-5u6-(B")
-  ("$(5"k(B" . "$,15h6-5h6-(B")
-  ("$(5"l(B" . "$,15U6-5w6-(B")
-  ("$(5"m(B" . "$,15\6-5^6-(B")
+  ;;2260 $(6"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o(B
+  ("$(6"`(B" . "$,15W6-5p6-(B")
+  ("$(6"a(B" . "$,15X6-5h6-(B")
+  ("$(6"c(B" . "$,15d6-5d6-(B")
+  ("$(6"d(B" . "$,15d6-5p6-(B")
+  ("$(6"e(B" . "$,15g6-5h6-(B")
+  ("$(6"f(B" . "$,15g6-5p6-(B")
+  ("$(6"g(B" . "$,15j6-5d6-(B")
+  ("$(6"h(B" . "$,15v6-5Z6-(B")
+  ("$(6"i(B" . "$,15v6-5p6-(B")
+  ("$(6"j(B" . "$,15v6-5u6-(B")
+  ("$(6"k(B" . "$,15h6-5h6-(B")
+  ("$(6"l(B" . "$,15U6-5w6-(B")
+  ("$(6"m(B" . "$,15\6-5^6-(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2270 $(5"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~(B
-  ("$(5"p(B" . "$,15p6-(B")
-  ("$(5"q(B" . "$,16-5p(B")
-  ("$(5"r(B" . "$,16-5p(B")
-  ("$(5"s(B" . "$,1686-(B")
-  ("$(5"t(B" . "$,1696-(B")
-  ("$(5"u(B" . "$,16:6-(B")
-  ("$(5"y(B" . "$,16>6-(B")
-  ("$(5"z(B" . "$,16;6-(B")
+  ;;2270 $(6"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~(B
+  ("$(6"p(B" . "$,15p6-(B")
+  ("$(6"q(B" . "$,16-5p(B")
+  ("$(6"r(B" . "$,16-5p(B")
+  ("$(6"s(B" . "$,1686-(B")
+  ("$(6"t(B" . "$,1696-(B")
+  ("$(6"u(B" . "$,16:6-(B")
+  ("$(6"y(B" . "$,16>6-(B")
+  ("$(6"z(B" . "$,16;6-(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2320   $(5#!#"###$#%#&#'#(#)#*#+#,#-#.#/(B
-  ("$(5#!(B" . "$,160(B")
-  ("$(5#&(B" . "$,15L(B")
-  ("$(5#&"p(B" . "$,15p6$(B")
-  ("$(5#'(B" . "$,16A(B")
-  ("$(5#'"p(B" . "$,15p6C(B")
-  ("$(5#*(B" . "$,16@(B")
-  ("$(5#*"p(B" . "$,15p6B(B")
+  ;;2320   $(6#!#"###$#%#&#'#(#)#*#+#,#-#.#/(B
+  ("$(6#!(B" . "$,160(B")
+  ("$(6#&(B" . "$,15L(B")
+  ("$(6#&"p(B" . "$,15p6$(B")
+  ("$(6#'(B" . "$,16A(B")
+  ("$(6#'"p(B" . "$,15p6C(B")
+  ("$(6#*(B" . "$,16@(B")
+  ("$(6#*"p(B" . "$,15p6B(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2330 $(5#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?(B
-  ("$(5#3(B" . "$,168(B")
-  ("$(5#4(B" . "$,169(B")
-  ("$(5#5(B" . "$,16:(B")
-  ("$(5#:(B" . "$,16;(B")
-  ("$(5#?(B" . "$,16<(B")
+  ;;2330 $(6#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?(B
+  ("$(6#3(B" . "$,168(B")
+  ("$(6#4(B" . "$,169(B")
+  ("$(6#5(B" . "$,16:(B")
+  ("$(6#:(B" . "$,16;(B")
+  ("$(6#?(B" . "$,16<(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2340 $(5#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O(B
-  ("$(5#@(B" . "$,16=(B")
-  ("$(5#I(B" . "$,16>(B")
-  ("$(5#J(B" . "$,15}(B")
-  ("$(5#K(B" . "$,16$(B")
-  ("$(5#L(B" . "$,16B(B")
-  ("$(5#M(B" . "$,16C(B")
+  ;;2340 $(6#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O(B
+  ("$(6#@(B" . "$,16=(B")
+  ("$(6#I(B" . "$,16>(B")
+  ("$(6#J(B" . "$,15}(B")
+  ("$(6#K(B" . "$,16$(B")
+  ("$(6#L(B" . "$,16B(B")
+  ("$(6#M(B" . "$,16C(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2350 $(5#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_(B
-  ("$(5#P(B" . "$,15n6-5h(B")
-  ("$(5#Q(B" . "$,15n6-5r(B")
-  ("$(5#R(B" . "$,15y6#(B")
+  ;;2350 $(6#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_(B
+  ("$(6#P(B" . "$,15n6-5h(B")
+  ("$(6#Q(B" . "$,15n6-5r(B")
+  ("$(6#R(B" . "$,15y6#(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2360 $(5#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o(B
-  ("$(5#`(B" . "$,15r6-5r(B")
-  ("$(5#a(B" . "$,15u6-5h(B")
-  ("$(5#b(B" . "$,15u6-5u(B")
-  ("$(5#c(B" . "$,15v6-5Z(B")
-  ("$(5#d(B" . "$,15v6-5h(B")
-  ("$(5#e(B" . "$,15v6-5l(B")
-  ("$(5#f(B" . "$,15v6-5r(B")
-  ("$(5#g(B" . "$,15v6-5u(B")
-  ("$(5#h(B" . "$,15w6-5_6-5p6-5o(B")
-  ("$(5#i(B" . "$,15w6-5_6-5o(B")
-  ("$(5#j(B" . "$,15w6-5_6-5u(B")
-  ("$(5#k(B" . "$,15w6-5_(B")
-  ("$(5#l(B" . "$,15w6-5`(B")
-  ("$(5#m(B" . "$,15x6-5h(B")
-  ("$(5#n(B" . "$,15x6-5p(B")
+  ;;2360 $(6#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o(B
+  ("$(6#`(B" . "$,15r6-5r(B")
+  ("$(6#a(B" . "$,15u6-5h(B")
+  ("$(6#b(B" . "$,15u6-5u(B")
+  ("$(6#c(B" . "$,15v6-5Z(B")
+  ("$(6#d(B" . "$,15v6-5h(B")
+  ("$(6#e(B" . "$,15v6-5l(B")
+  ("$(6#f(B" . "$,15v6-5r(B")
+  ("$(6#g(B" . "$,15v6-5u(B")
+  ("$(6#h(B" . "$,15w6-5_6-5p6-5o(B")
+  ("$(6#i(B" . "$,15w6-5_6-5o(B")
+  ("$(6#j(B" . "$,15w6-5_6-5u(B")
+  ("$(6#k(B" . "$,15w6-5_(B")
+  ("$(6#l(B" . "$,15w6-5`(B")
+  ("$(6#m(B" . "$,15x6-5h(B")
+  ("$(6#n(B" . "$,15x6-5p(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2370 $(5#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~(B
-  ("$(5#p(B" . "$,15y6-5c(B")
-  ("$(5#q(B" . "$,15y6-5h(B")
-  ("$(5#r(B" . "$,15y6-5n(B")
-  ("$(5#s(B" . "$,15y6-5o(B")
-  ("$(5#t(B" . "$,15y6-5p(B")
-  ("$(5#u(B" . "$,15y6-5r(B")
-  ("$(5#v(B" . "$,15y6-5u(B")
+  ;;2370 $(6#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~(B
+  ("$(6#p(B" . "$,15y6-5c(B")
+  ("$(6#q(B" . "$,15y6-5h(B")
+  ("$(6#r(B" . "$,15y6-5n(B")
+  ("$(6#s(B" . "$,15y6-5o(B")
+  ("$(6#t(B" . "$,15y6-5p(B")
+  ("$(6#u(B" . "$,15y6-5r(B")
+  ("$(6#v(B" . "$,15y6-5u(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2420   $(5$!$"$#$$$%$&$'$($)$*$+$,$-$.$/(B
-  ("$(5$!(B" . "$,15U6-5d6-5p6-5o(B")
-  ("$(5$"(B" . "$,15U6-5d6-5u(B")
-  ("$(5$#(B" . "$,15U6-5d6-5o(B")
-  ("$(5$$(B" . "$,15U6-5h6-5o(B")
-  ("$(5$%(B" . "$,15U6-5p6-5o(B")
-  ("$(5$&(B" . "$,15U6-5u6-5o(B")
-  ("$(5$'(B" . "$,15U6-5U(B")
-  ("$(5$((B" . "$,15U6-5d(B")
-  ("$(5$)(B" . "$,15U6-5h(B")
-  ("$(5$*(B" . "$,15U6-5n(B")
-  ("$(5$+(B" . "$,15U6-5o(B")
-  ("$(5$,(B" . "$,15U6-5r(B")
-  ("$(5$-(B" . "$,15U6-5u(B")
-  ("$(5$.(B" . "$,15U6-5w(B")
-  ("$(5$/(B" . "$,15X6-5h(B")
+  ;;2420   $(6$!$"$#$$$%$&$'$($)$*$+$,$-$.$/(B
+  ("$(6$!(B" . "$,15U6-5d6-5p6-5o(B")
+  ("$(6$"(B" . "$,15U6-5d6-5u(B")
+  ("$(6$#(B" . "$,15U6-5d6-5o(B")
+  ("$(6$$(B" . "$,15U6-5h6-5o(B")
+  ("$(6$%(B" . "$,15U6-5p6-5o(B")
+  ("$(6$&(B" . "$,15U6-5u6-5o(B")
+  ("$(6$'(B" . "$,15U6-5U(B")
+  ("$(6$((B" . "$,15U6-5d(B")
+  ("$(6$)(B" . "$,15U6-5h(B")
+  ("$(6$*(B" . "$,15U6-5n(B")
+  ("$(6$+(B" . "$,15U6-5o(B")
+  ("$(6$,(B" . "$,15U6-5r(B")
+  ("$(6$-(B" . "$,15U6-5u(B")
+  ("$(6$.(B" . "$,15U6-5w(B")
+  ("$(6$/(B" . "$,15X6-5h(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2430 $(5$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?(B
-  ("$(5$0(B" . "$,15Y6-5U6-5d6-5o(B")
-  ("$(5$1(B" . "$,15Y6-5U6-5w6-5u(B")
-  ("$(5$2(B" . "$,15Y6-5U6-5d(B")
-  ("$(5$3(B" . "$,15Y6-5U6-5w(B")
-  ("$(5$4(B" . "$,15Y6-5X6-5p(B")
-  ("$(5$5(B" . "$,15Y6-5U6-5o(B")
-  ("$(5$6(B" . "$,15Y6-5V6-5o(B")
-  ("$(5$7(B" . "$,15Y6-5W6-5o(B")
-  ("$(5$8(B" . "$,15Y6-5X6-5o(B")
-  ("$(5$9(B" . "$,15Y6-5U(B")
-  ("$(5$:(B" . "$,15Y6-5V(B")
-  ("$(5$;(B" . "$,15Y6-5W(B")
-  ("$(5$<(B" . "$,15Y6-5X(B")
-  ("$(5$=(B" . "$,15Y6-5Y(B")
-  ("$(5$>(B" . "$,15Y6-5h(B")
-  ("$(5$?(B" . "$,15Y6-5n(B")
+  ;;2430 $(6$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?(B
+  ("$(6$0(B" . "$,15Y6-5U6-5d6-5o(B")
+  ("$(6$1(B" . "$,15Y6-5U6-5w6-5u(B")
+  ("$(6$2(B" . "$,15Y6-5U6-5d(B")
+  ("$(6$3(B" . "$,15Y6-5U6-5w(B")
+  ("$(6$4(B" . "$,15Y6-5X6-5p(B")
+  ("$(6$5(B" . "$,15Y6-5U6-5o(B")
+  ("$(6$6(B" . "$,15Y6-5V6-5o(B")
+  ("$(6$7(B" . "$,15Y6-5W6-5o(B")
+  ("$(6$8(B" . "$,15Y6-5X6-5o(B")
+  ("$(6$9(B" . "$,15Y6-5U(B")
+  ("$(6$:(B" . "$,15Y6-5V(B")
+  ("$(6$;(B" . "$,15Y6-5W(B")
+  ("$(6$<(B" . "$,15Y6-5X(B")
+  ("$(6$=(B" . "$,15Y6-5Y(B")
+  ("$(6$>(B" . "$,15Y6-5h(B")
+  ("$(6$?(B" . "$,15Y6-5n(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2440 $(5$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O(B
-  ("$(5$@(B" . "$,15Y6-5o(B")
-  ("$(5$A(B" . "$,15Z6-5Z(B")
-  ("$(5$B(B" . "$,15Z6-5^(B")
-  ("$(5$C(B" . "$,15[6-5o(B")
-  ("$(5$D(B" . "$,15\6-5p(B")
-  ("$(5$E(B" . "$,15\6-5^(B")
-  ("$(5$F(B" . "$,15^6-5Z(B")
-  ("$(5$G(B" . "$,15^6-5\(B")
-  ("$(5$H(B" . "$,15_6-5U(B")
-  ("$(5$I(B" . "$,15_6-5_(B")
-  ("$(5$J(B" . "$,15_6-5`(B")
-  ("$(5$K(B" . "$,15_6-5o(B")
-  ("$(5$L(B" . "$,15`6-5o(B")
-  ("$(5$M(B" . "$,15a6-5W6-5o(B")
-  ("$(5$N(B" . "$,15a6-5X6-5p(B")
-  ("$(5$O(B" . "$,15a6-5p6-5o(B")
+  ;;2440 $(6$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O(B
+  ("$(6$@(B" . "$,15Y6-5o(B")
+  ("$(6$A(B" . "$,15Z6-5Z(B")
+  ("$(6$B(B" . "$,15Z6-5^(B")
+  ("$(6$C(B" . "$,15[6-5o(B")
+  ("$(6$D(B" . "$,15\6-5p(B")
+  ("$(6$E(B" . "$,15\6-5^(B")
+  ("$(6$F(B" . "$,15^6-5Z(B")
+  ("$(6$G(B" . "$,15^6-5\(B")
+  ("$(6$H(B" . "$,15_6-5U(B")
+  ("$(6$I(B" . "$,15_6-5_(B")
+  ("$(6$J(B" . "$,15_6-5`(B")
+  ("$(6$K(B" . "$,15_6-5o(B")
+  ("$(6$L(B" . "$,15`6-5o(B")
+  ("$(6$M(B" . "$,15a6-5W6-5o(B")
+  ("$(6$N(B" . "$,15a6-5X6-5p(B")
+  ("$(6$O(B" . "$,15a6-5p6-5o(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2450 $(5$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_(B
-  ("$(5$P(B" . "$,15a6-5W(B")
-  ("$(5$Q(B" . "$,15a6-5X(B")
-  ("$(5$R(B" . "$,15a6-5a(B")
-  ("$(5$S(B" . "$,15a6-5n(B")
-  ("$(5$T(B" . "$,15a6-5o(B")
+  ;;2450 $(6$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_(B
+  ("$(6$P(B" . "$,15a6-5W(B")
+  ("$(6$Q(B" . "$,15a6-5X(B")
+  ("$(6$R(B" . "$,15a6-5a(B")
+  ("$(6$S(B" . "$,15a6-5n(B")
+  ("$(6$T(B" . "$,15a6-5o(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2460 $(5$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o(B
-  ("$(5$`(B" . "$,15b6-5o(B")
-  ("$(5$a(B" . "$,15d6-5d(B")
-  ("$(5$b(B" . "$,15d6-5h(B")
-  ("$(5$c(B" . "$,15f6-5f6-5o(B")
-  ("$(5$d(B" . "$,15f6-5g6-5o(B")
-  ("$(5$e(B" . "$,15f6-5m6-5o(B")
-  ("$(5$f(B" . "$,15f6-5p6-5o(B")
-  ("$(5$g(B" . "$,15f6-5u6-5o(B")
-  ("$(5$h(B" . "$,15f6-5W6-5p(B")
-  ("$(5$i(B" . "$,15f6-5X6-5p(B")
-  ("$(5$j(B" . "$,15f6-5f6-5u(B")
-  ("$(5$k(B" . "$,15f6-5g6-5u(B")
-  ("$(5$l(B" . "$,15f6-5W(B")
-  ("$(5$m(B" . "$,15f6-5X(B")
-  ("$(5$n(B" . "$,15f6-5f(B")
-  ("$(5$o(B" . "$,15f6-5g(B")
+  ;;2460 $(6$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o(B
+  ("$(6$`(B" . "$,15b6-5o(B")
+  ("$(6$a(B" . "$,15d6-5d(B")
+  ("$(6$b(B" . "$,15d6-5h(B")
+  ("$(6$c(B" . "$,15f6-5f6-5o(B")
+  ("$(6$d(B" . "$,15f6-5g6-5o(B")
+  ("$(6$e(B" . "$,15f6-5m6-5o(B")
+  ("$(6$f(B" . "$,15f6-5p6-5o(B")
+  ("$(6$g(B" . "$,15f6-5u6-5o(B")
+  ("$(6$h(B" . "$,15f6-5W6-5p(B")
+  ("$(6$i(B" . "$,15f6-5X6-5p(B")
+  ("$(6$j(B" . "$,15f6-5f6-5u(B")
+  ("$(6$k(B" . "$,15f6-5g6-5u(B")
+  ("$(6$l(B" . "$,15f6-5W(B")
+  ("$(6$m(B" . "$,15f6-5X(B")
+  ("$(6$n(B" . "$,15f6-5f(B")
+  ("$(6$o(B" . "$,15f6-5g(B")
   ;;      0 1 2 3 4 5 6 7 8 9 a b c d e f
-  ;;2470 $(5$p$q$r$s$t$u$v$w$x$y$z${$|$}$~(B
-  ("$(5$p(B" . "$,15f6-5h(B")
-  ("$(5$q(B" . "$,15f6-5l(B")
-  ("$(5$r(B" . "$,15f6-5m(B")
-  ("$(5$s(B" . "$,15f6-5n(B")
-  ("$(5$t(B" . "$,15f6-5o(B")
-  ("$(5$u(B" . "$,15f6-5u(B")
-  ("$(5$v(B" . "$,15g6-5h(B")
-  ("$(5$w(B" . "$,15h6-5h(B")
-  ("$(5$x(B" . "$,15j6-5d(B")
-  ("$(5$y(B" . "$,15j6-5h(B")
-  ("$(5$z(B" . "$,15j6-5r(B")
-  ("$(5${(B" . "$,15l6-5h(B")
-  ("$(5$|(B" . "$,15l6-5l(B")
-  ("$(5$}(B" . "$,15l6-5u(B")
-  ("$(5$~(B" . "$,15m6-5h(B")))
+  ;;2470 $(6$p$q$r$s$t$u$v$w$x$y$z${$|$}$~(B
+  ("$(6$p(B" . "$,15f6-5h(B")
+  ("$(6$q(B" . "$,15f6-5l(B")
+  ("$(6$r(B" . "$,15f6-5m(B")
+  ("$(6$s(B" . "$,15f6-5n(B")
+  ("$(6$t(B" . "$,15f6-5o(B")
+  ("$(6$u(B" . "$,15f6-5u(B")
+  ("$(6$v(B" . "$,15g6-5h(B")
+  ("$(6$w(B" . "$,15h6-5h(B")
+  ("$(6$x(B" . "$,15j6-5d(B")
+  ("$(6$y(B" . "$,15j6-5h(B")
+  ("$(6$z(B" . "$,15j6-5r(B")
+  ("$(6${(B" . "$,15l6-5h(B")
+  ("$(6$|(B" . "$,15l6-5l(B")
+  ("$(6$}(B" . "$,15l6-5u(B")
+  ("$(6$~(B" . "$,15m6-5h(B")))
 
 (defconst indian-2-column-to-ucs-regexp
-  "$(5!j!j(B\\|$(5"8"q(B\\|[$(5#&#'!*#*(B]$(5"p(B\\|[$(5!!(B-$(5$~(B]")
+  "$(6!j!j(B\\|$(6"8"q(B\\|[$(6#&#'!*#*(B]$(6"p(B\\|[$(6!!(B-$(6$~(B]")
 
 (put 'indian-2-column-to-ucs-chartable 'char-table-extra-slots 1)
 (defconst indian-2-column-to-ucs-chartable