Mercurial > emacs

comparison lisp/language/ind-util.el @ 89298:e1d0641b8107

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 17709000b5f0
children 2f877ed80fa6
comparison
equal deleted inserted replaced
89297:4a475cc23487 89298:e1d0641b8107
582 (replace-match (gethash (match-string 0) hash "")))) 582 (replace-match (gethash (match-string 0) hash ""))))
583 (point-max)))) 583 (point-max))))
584 584
585 ;;;###autoload 585 ;;;###autoload
586 (defun indian-compose-region (from to) 586 (defun indian-compose-region (from to)
587 "Compose the region according to `composition-function-table'. " 587 "Compose the region according to `composition-function-table'."
588 (interactive "r") 588 (interactive "r")
589 (save-excursion 589 (save-excursion
590 (save-restriction 590 (save-restriction
591 (let ((pos from) chars (max to)) 591 (let ((pos from) newpos func (max to))
592 (narrow-to-region from to) 592 (narrow-to-region from to)
593 (while (< pos max) 593 (while (< pos max)
594 (setq chars (compose-chars-after pos)) 594 (setq func (aref composition-function-table (char-after pos)))
595 (if chars (setq pos (+ pos chars)) (setq pos (1+ pos)))))))) 595 (if (fboundp func)
596 (setq newpos (funcall func pos nil)
597 pos (if (and (integerp newpos) (> newpos pos))
598 newpos (1+ pos)))
599 (setq pos (1+ pos))))))))
596 600
597 ;;;###autoload 601 ;;;###autoload
598 (defun indian-compose-string (string) 602 (defun indian-compose-string (string)
599 (with-temp-buffer 603 (with-temp-buffer
600 (insert string) 604 (insert string)
627 ;; Emacs Devanagari script to UCS. 631 ;; Emacs Devanagari script to UCS.
628 632
629 (defconst indian-2-colum-to-ucs 633 (defconst indian-2-colum-to-ucs
630 '( 634 '(
631 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 635 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
632 ;;2120 $(5!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/(B 636 ;;2120 $(6!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/(B
633 ("$(5!!(B" . "$,15A(B") 637 ("$(6!!(B" . "$,15A(B")
634 ("$(5!"(B" . "$,15B(B") 638 ("$(6!"(B" . "$,15B(B")
635 ("$(5!#(B" . "$,15C(B") 639 ("$(6!#(B" . "$,15C(B")
636 ("$(5!$(B" . "$,15E(B") 640 ("$(6!$(B" . "$,15E(B")
637 ("$(5!%(B" . "$,15F(B") 641 ("$(6!%(B" . "$,15F(B")
638 ("$(5!&(B" . "$,15G(B") 642 ("$(6!&(B" . "$,15G(B")
639 ("$(5!'(B" . "$,15H(B") 643 ("$(6!'(B" . "$,15H(B")
640 ("$(5!((B" . "$,15I(B") 644 ("$(6!((B" . "$,15I(B")
641 ("$(5!)(B" . "$,15J(B") 645 ("$(6!)(B" . "$,15J(B")
642 ("$(5!*(B" . "$,15K(B") 646 ("$(6!*(B" . "$,15K(B")
643 ("$(5!*"p(B" . "$,15p6#(B") 647 ("$(6!*"p(B" . "$,15p6#(B")
644 ("$(5!+(B" . "$,15N(B") 648 ("$(6!+(B" . "$,15N(B")
645 ("$(5!,(B" . "$,15O(B") 649 ("$(6!,(B" . "$,15O(B")
646 ("$(5!-(B" . "$,15P(B") 650 ("$(6!-(B" . "$,15P(B")
647 ("$(5!.(B" . "$,15M(B") 651 ("$(6!.(B" . "$,15M(B")
648 ("$(5!/(B" . "$,15R(B") 652 ("$(6!/(B" . "$,15R(B")
649 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 653 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
650 ;;2130 $(5!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B 654 ;;2130 $(6!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B
651 ("$(5!0(B" . "$,15S(B") 655 ("$(6!0(B" . "$,15S(B")
652 ("$(5!1(B" . "$,15T(B") 656 ("$(6!1(B" . "$,15T(B")
653 ("$(5!2(B" . "$,15Q(B") 657 ("$(6!2(B" . "$,15Q(B")
654 ("$(5!3(B" . "$,15U(B") 658 ("$(6!3(B" . "$,15U(B")
655 ("$(5!4(B" . "$,15V(B") 659 ("$(6!4(B" . "$,15V(B")
656 ("$(5!5(B" . "$,15W(B") 660 ("$(6!5(B" . "$,15W(B")
657 ("$(5!6(B" . "$,15X(B") 661 ("$(6!6(B" . "$,15X(B")
658 ("$(5!7(B" . "$,15Y(B") 662 ("$(6!7(B" . "$,15Y(B")
659 ("$(5!8(B" . "$,15Z(B") 663 ("$(6!8(B" . "$,15Z(B")
660 ("$(5!9(B" . "$,15[(B") 664 ("$(6!9(B" . "$,15[(B")
661 ("$(5!:(B" . "$,15\(B") 665 ("$(6!:(B" . "$,15\(B")
662 ("$(5!;(B" . "$,15](B") 666 ("$(6!;(B" . "$,15](B")
663 ("$(5!<(B" . "$,15^(B") 667 ("$(6!<(B" . "$,15^(B")
664 ("$(5!=(B" . "$,15_(B") 668 ("$(6!=(B" . "$,15_(B")
665 ("$(5!>(B" . "$,15`(B") 669 ("$(6!>(B" . "$,15`(B")
666 ("$(5!?(B" . "$,15a(B") 670 ("$(6!?(B" . "$,15a(B")
667 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 671 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
668 ;;2140 $(5!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O(B 672 ;;2140 $(6!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O(B
669 ("$(5!@(B" . "$,15b(B") 673 ("$(6!@(B" . "$,15b(B")
670 ("$(5!A(B" . "$,15c(B") 674 ("$(6!A(B" . "$,15c(B")
671 ("$(5!B(B" . "$,15d(B") 675 ("$(6!B(B" . "$,15d(B")
672 ("$(5!C(B" . "$,15e(B") 676 ("$(6!C(B" . "$,15e(B")
673 ("$(5!D(B" . "$,15f(B") 677 ("$(6!D(B" . "$,15f(B")
674 ("$(5!E(B" . "$,15g(B") 678 ("$(6!E(B" . "$,15g(B")
675 ("$(5!F(B" . "$,15h(B") 679 ("$(6!F(B" . "$,15h(B")
676 ("$(5!G(B" . "$,15i(B") 680 ("$(6!G(B" . "$,15i(B")
677 ("$(5!H(B" . "$,15j(B") 681 ("$(6!H(B" . "$,15j(B")
678 ("$(5!I(B" . "$,15k(B") 682 ("$(6!I(B" . "$,15k(B")
679 ("$(5!J(B" . "$,15l(B") 683 ("$(6!J(B" . "$,15l(B")
680 ("$(5!K(B" . "$,15m(B") 684 ("$(6!K(B" . "$,15m(B")
681 ("$(5!L(B" . "$,15n(B") 685 ("$(6!L(B" . "$,15n(B")
682 ("$(5!M(B" . "$,15o(B") 686 ("$(6!M(B" . "$,15o(B")
683 ("$(5!N(B" . "$,16?(B") 687 ("$(6!N(B" . "$,16?(B")
684 ("$(5!O(B" . "$,15p(B") 688 ("$(6!O(B" . "$,15p(B")
685 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 689 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
686 ;;2150 $(5!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_(B 690 ;;2150 $(6!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_(B
687 ("$(5!P(B" . "$,15q(B") 691 ("$(6!P(B" . "$,15q(B")
688 ("$(5!Q(B" . "$,15r(B") 692 ("$(6!Q(B" . "$,15r(B")
689 ("$(5!R(B" . "$,15s(B") 693 ("$(6!R(B" . "$,15s(B")
690 ("$(5!S(B" . "$,15t(B") 694 ("$(6!S(B" . "$,15t(B")
691 ("$(5!T(B" . "$,15u(B") 695 ("$(6!T(B" . "$,15u(B")
692 ("$(5!U(B" . "$,15v(B") 696 ("$(6!U(B" . "$,15v(B")
693 ("$(5!V(B" . "$,15w(B") 697 ("$(6!V(B" . "$,15w(B")
694 ("$(5!W(B" . "$,15x(B") 698 ("$(6!W(B" . "$,15x(B")
695 ("$(5!X(B" . "$,15y(B") 699 ("$(6!X(B" . "$,15y(B")
696 ("$(5!Z(B" . "$,15~(B") 700 ("$(6!Z(B" . "$,15~(B")
697 ("$(5![(B" . "$,15(B") 701 ("$(6![(B" . "$,15(B")
698 ("$(5!\(B" . "$,16 (B") 702 ("$(6!\(B" . "$,16 (B")
699 ("$(5!](B" . "$,16!(B") 703 ("$(6!](B" . "$,16!(B")
700 ("$(5!^(B" . "$,16"(B") 704 ("$(6!^(B" . "$,16"(B")
701 ("$(5!_(B" . "$,16#(B") 705 ("$(6!_(B" . "$,16#(B")
702 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 706 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
703 ;;2160 $(5!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o(B 707 ;;2160 $(6!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o(B
704 ("$(5!`(B" . "$,16&(B") 708 ("$(6!`(B" . "$,16&(B")
705 ("$(5!a(B" . "$,16'(B") 709 ("$(6!a(B" . "$,16'(B")
706 ("$(5!b(B" . "$,16((B") 710 ("$(6!b(B" . "$,16((B")
707 ("$(5!c(B" . "$,16%(B") 711 ("$(6!c(B" . "$,16%(B")
708 ("$(5!d(B" . "$,16*(B") 712 ("$(6!d(B" . "$,16*(B")
709 ("$(5!e(B" . "$,16+(B") 713 ("$(6!e(B" . "$,16+(B")
710 ("$(5!f(B" . "$,16,(B") 714 ("$(6!f(B" . "$,16,(B")
711 ("$(5!g(B" . "$,16)(B") 715 ("$(6!g(B" . "$,16)(B")
712 ("$(5!h(B" . "$,16-(B") 716 ("$(6!h(B" . "$,16-(B")
713 ("$(5!i(B" . "$,15|(B") 717 ("$(6!i(B" . "$,15|(B")
714 ("$(5!j(B" . "$,16D(B") 718 ("$(6!j(B" . "$,16D(B")
715 ("$(5!j!j(B" . "$,16E(B") 719 ("$(6!j!j(B" . "$,16E(B")
716 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 720 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
717 ;;2170 $(5!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B 721 ;;2170 $(6!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B
718 ("$(5!q(B" . "$,16F(B") 722 ("$(6!q(B" . "$,16F(B")
719 ("$(5!r(B" . "$,16G(B") 723 ("$(6!r(B" . "$,16G(B")
720 ("$(5!s(B" . "$,16H(B") 724 ("$(6!s(B" . "$,16H(B")
721 ("$(5!t(B" . "$,16I(B") 725 ("$(6!t(B" . "$,16I(B")
722 ("$(5!u(B" . "$,16J(B") 726 ("$(6!u(B" . "$,16J(B")
723 ("$(5!v(B" . "$,16K(B") 727 ("$(6!v(B" . "$,16K(B")
724 ("$(5!w(B" . "$,16L(B") 728 ("$(6!w(B" . "$,16L(B")
725 ("$(5!x(B" . "$,16M(B") 729 ("$(6!x(B" . "$,16M(B")
726 ("$(5!y(B" . "$,16N(B") 730 ("$(6!y(B" . "$,16N(B")
727 ("$(5!z(B" . "$,16O(B") 731 ("$(6!z(B" . "$,16O(B")
728 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 732 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
729 ;;2220 $(5"!"""#"$"%"&"'"(")"*"+","-"."/(B 733 ;;2220 $(6"!"""#"$"%"&"'"(")"*"+","-"."/(B
730 ("$(5"!(B" . "$,16;6-5p(B") 734 ("$(6"!(B" . "$,16;6-5p(B")
731 ("$(5""(B" . "$,16>6-5p(B") 735 ("$(6""(B" . "$,16>6-5p(B")
732 ("$(5"#(B" . "$,15U6-5p(B") 736 ("$(6"#(B" . "$,15U6-5p(B")
733 ("$(5"$(B" . "$,15W6-5p(B") 737 ("$(6"$(B" . "$,15W6-5p(B")
734 ("$(5"%(B" . "$,15d6-5p(B") 738 ("$(6"%(B" . "$,15d6-5p(B")
735 ("$(5"&(B" . "$,15j6-5p(B") 739 ("$(6"&(B" . "$,15j6-5p(B")
736 ("$(5"'(B" . "$,15k6-5p(B") 740 ("$(6"'(B" . "$,15k6-5p(B")
737 ("$(5")(B" . "$,15v6-5p(B") 741 ("$(6")(B" . "$,15v6-5p(B")
738 ("$(5",(B" . "$,15p6!(B") 742 ("$(6",(B" . "$,15p6!(B")
739 ("$(5"-(B" . "$,15p6"(B") 743 ("$(6"-(B" . "$,15p6"(B")
740 ("$(5".(B" . "$,15q6!(B") 744 ("$(6".(B" . "$,15q6!(B")
741 ("$(5"/(B" . "$,15q6"(B") 745 ("$(6"/(B" . "$,15q6"(B")
742 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 746 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
743 ;;2230 $(5"0"1"2"3"4"5"6"7"8"9":";"<"=">"?(B 747 ;;2230 $(6"0"1"2"3"4"5"6"7"8"9":";"<"=">"?(B
744 ("$(5"3(B" . "$,15U6-(B") 748 ("$(6"3(B" . "$,15U6-(B")
745 ("$(5"4(B" . "$,15V6-(B") 749 ("$(6"4(B" . "$,15V6-(B")
746 ("$(5"5(B" . "$,15W6-(B") 750 ("$(6"5(B" . "$,15W6-(B")
747 ("$(5"6(B" . "$,15X6-(B") 751 ("$(6"6(B" . "$,15X6-(B")
748 ("$(5"8(B" . "$,15Z6-(B") 752 ("$(6"8(B" . "$,15Z6-(B")
749 ("$(5"8"q(B" . "$,15Z6-5p6-(B") 753 ("$(6"8"q(B" . "$,15Z6-5p6-(B")
750 ("$(5":(B" . "$,15\6-(B") 754 ("$(6":(B" . "$,15\6-(B")
751 ("$(5";(B" . "$,15]6-(B") 755 ("$(6";(B" . "$,15]6-(B")
752 ("$(5"<(B" . "$,15^6-(B") 756 ("$(6"<(B" . "$,15^6-(B")
753 ("$(5"<(B" . "$,15^6-(B") 757 ("$(6"<(B" . "$,15^6-(B")
754 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 758 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
755 ;;2240 $(5"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O(B 759 ;;2240 $(6"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O(B
756 ("$(5"A(B" . "$,15c6-(B") 760 ("$(6"A(B" . "$,15c6-(B")
757 ("$(5"B(B" . "$,15d6-(B") 761 ("$(6"B(B" . "$,15d6-(B")
758 ("$(5"C(B" . "$,15e6-(B") 762 ("$(6"C(B" . "$,15e6-(B")
759 ("$(5"E(B" . "$,15g6-(B") 763 ("$(6"E(B" . "$,15g6-(B")
760 ("$(5"F(B" . "$,15h6-(B") 764 ("$(6"F(B" . "$,15h6-(B")
761 ("$(5"G(B" . "$,15i6-(B") 765 ("$(6"G(B" . "$,15i6-(B")
762 ("$(5"H(B" . "$,15j6-(B") 766 ("$(6"H(B" . "$,15j6-(B")
763 ("$(5"I(B" . "$,15k6-(B") 767 ("$(6"I(B" . "$,15k6-(B")
764 ("$(5"J(B" . "$,15l6-(B") 768 ("$(6"J(B" . "$,15l6-(B")
765 ("$(5"J(B" . "$,15l6-(B") 769 ("$(6"J(B" . "$,15l6-(B")
766 ("$(5"K(B" . "$,15m6-(B") 770 ("$(6"K(B" . "$,15m6-(B")
767 ("$(5"L(B" . "$,15n6-(B") 771 ("$(6"L(B" . "$,15n6-(B")
768 ("$(5"M(B" . "$,15o6-(B") 772 ("$(6"M(B" . "$,15o6-(B")
769 ("$(5"N(B" . "$,16?6-(B") 773 ("$(6"N(B" . "$,16?6-(B")
770 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 774 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
771 ;;2250 $(5"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_(B 775 ;;2250 $(6"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_(B
772 ("$(5"Q(B" . "$,15r6-(B") 776 ("$(6"Q(B" . "$,15r6-(B")
773 ("$(5"R(B" . "$,15s6-(B") 777 ("$(6"R(B" . "$,15s6-(B")
774 ("$(5"S(B" . "$,15t6-(B") 778 ("$(6"S(B" . "$,15t6-(B")
775 ("$(5"T(B" . "$,15u6-(B") 779 ("$(6"T(B" . "$,15u6-(B")
776 ("$(5"U(B" . "$,15v6-(B") 780 ("$(6"U(B" . "$,15v6-(B")
777 ("$(5"V(B" . "$,15w6-(B") 781 ("$(6"V(B" . "$,15w6-(B")
778 ("$(5"W(B" . "$,15x6-(B") 782 ("$(6"W(B" . "$,15x6-(B")
779 ("$(5"](B" . "$,16-5o(B") 783 ("$(6"](B" . "$,16-5o(B")
780 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 784 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
781 ;;2260 $(5"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o(B 785 ;;2260 $(6"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o(B
782 ("$(5"`(B" . "$,15W6-5p6-(B") 786 ("$(6"`(B" . "$,15W6-5p6-(B")
783 ("$(5"a(B" . "$,15X6-5h6-(B") 787 ("$(6"a(B" . "$,15X6-5h6-(B")
784 ("$(5"c(B" . "$,15d6-5d6-(B") 788 ("$(6"c(B" . "$,15d6-5d6-(B")
785 ("$(5"d(B" . "$,15d6-5p6-(B") 789 ("$(6"d(B" . "$,15d6-5p6-(B")
786 ("$(5"e(B" . "$,15g6-5h6-(B") 790 ("$(6"e(B" . "$,15g6-5h6-(B")
787 ("$(5"f(B" . "$,15g6-5p6-(B") 791 ("$(6"f(B" . "$,15g6-5p6-(B")
788 ("$(5"g(B" . "$,15j6-5d6-(B") 792 ("$(6"g(B" . "$,15j6-5d6-(B")
789 ("$(5"h(B" . "$,15v6-5Z6-(B") 793 ("$(6"h(B" . "$,15v6-5Z6-(B")
790 ("$(5"i(B" . "$,15v6-5p6-(B") 794 ("$(6"i(B" . "$,15v6-5p6-(B")
791 ("$(5"j(B" . "$,15v6-5u6-(B") 795 ("$(6"j(B" . "$,15v6-5u6-(B")
792 ("$(5"k(B" . "$,15h6-5h6-(B") 796 ("$(6"k(B" . "$,15h6-5h6-(B")
793 ("$(5"l(B" . "$,15U6-5w6-(B") 797 ("$(6"l(B" . "$,15U6-5w6-(B")
794 ("$(5"m(B" . "$,15\6-5^6-(B") 798 ("$(6"m(B" . "$,15\6-5^6-(B")
795 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 799 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
796 ;;2270 $(5"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~(B 800 ;;2270 $(6"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~(B
797 ("$(5"p(B" . "$,15p6-(B") 801 ("$(6"p(B" . "$,15p6-(B")
798 ("$(5"q(B" . "$,16-5p(B") 802 ("$(6"q(B" . "$,16-5p(B")
799 ("$(5"r(B" . "$,16-5p(B") 803 ("$(6"r(B" . "$,16-5p(B")
800 ("$(5"s(B" . "$,1686-(B") 804 ("$(6"s(B" . "$,1686-(B")
801 ("$(5"t(B" . "$,1696-(B") 805 ("$(6"t(B" . "$,1696-(B")
802 ("$(5"u(B" . "$,16:6-(B") 806 ("$(6"u(B" . "$,16:6-(B")
803 ("$(5"y(B" . "$,16>6-(B") 807 ("$(6"y(B" . "$,16>6-(B")
804 ("$(5"z(B" . "$,16;6-(B") 808 ("$(6"z(B" . "$,16;6-(B")
805 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 809 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
806 ;;2320 $(5#!#"###$#%#&#'#(#)#*#+#,#-#.#/(B 810 ;;2320 $(6#!#"###$#%#&#'#(#)#*#+#,#-#.#/(B
807 ("$(5#!(B" . "$,160(B") 811 ("$(6#!(B" . "$,160(B")
808 ("$(5#&(B" . "$,15L(B") 812 ("$(6#&(B" . "$,15L(B")
809 ("$(5#&"p(B" . "$,15p6$(B") 813 ("$(6#&"p(B" . "$,15p6$(B")
810 ("$(5#'(B" . "$,16A(B") 814 ("$(6#'(B" . "$,16A(B")
811 ("$(5#'"p(B" . "$,15p6C(B") 815 ("$(6#'"p(B" . "$,15p6C(B")
812 ("$(5#*(B" . "$,16@(B") 816 ("$(6#*(B" . "$,16@(B")
813 ("$(5#*"p(B" . "$,15p6B(B") 817 ("$(6#*"p(B" . "$,15p6B(B")
814 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 818 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
815 ;;2330 $(5#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?(B 819 ;;2330 $(6#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?(B
816 ("$(5#3(B" . "$,168(B") 820 ("$(6#3(B" . "$,168(B")
817 ("$(5#4(B" . "$,169(B") 821 ("$(6#4(B" . "$,169(B")
818 ("$(5#5(B" . "$,16:(B") 822 ("$(6#5(B" . "$,16:(B")
819 ("$(5#:(B" . "$,16;(B") 823 ("$(6#:(B" . "$,16;(B")
820 ("$(5#?(B" . "$,16<(B") 824 ("$(6#?(B" . "$,16<(B")
821 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 825 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
822 ;;2340 $(5#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O(B 826 ;;2340 $(6#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O(B
823 ("$(5#@(B" . "$,16=(B") 827 ("$(6#@(B" . "$,16=(B")
824 ("$(5#I(B" . "$,16>(B") 828 ("$(6#I(B" . "$,16>(B")
825 ("$(5#J(B" . "$,15}(B") 829 ("$(6#J(B" . "$,15}(B")
826 ("$(5#K(B" . "$,16$(B") 830 ("$(6#K(B" . "$,16$(B")
827 ("$(5#L(B" . "$,16B(B") 831 ("$(6#L(B" . "$,16B(B")
828 ("$(5#M(B" . "$,16C(B") 832 ("$(6#M(B" . "$,16C(B")
829 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 833 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
830 ;;2350 $(5#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_(B 834 ;;2350 $(6#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_(B
831 ("$(5#P(B" . "$,15n6-5h(B") 835 ("$(6#P(B" . "$,15n6-5h(B")
832 ("$(5#Q(B" . "$,15n6-5r(B") 836 ("$(6#Q(B" . "$,15n6-5r(B")
833 ("$(5#R(B" . "$,15y6#(B") 837 ("$(6#R(B" . "$,15y6#(B")
834 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 838 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
835 ;;2360 $(5#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o(B 839 ;;2360 $(6#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o(B
836 ("$(5#`(B" . "$,15r6-5r(B") 840 ("$(6#`(B" . "$,15r6-5r(B")
837 ("$(5#a(B" . "$,15u6-5h(B") 841 ("$(6#a(B" . "$,15u6-5h(B")
838 ("$(5#b(B" . "$,15u6-5u(B") 842 ("$(6#b(B" . "$,15u6-5u(B")
839 ("$(5#c(B" . "$,15v6-5Z(B") 843 ("$(6#c(B" . "$,15v6-5Z(B")
840 ("$(5#d(B" . "$,15v6-5h(B") 844 ("$(6#d(B" . "$,15v6-5h(B")
841 ("$(5#e(B" . "$,15v6-5l(B") 845 ("$(6#e(B" . "$,15v6-5l(B")
842 ("$(5#f(B" . "$,15v6-5r(B") 846 ("$(6#f(B" . "$,15v6-5r(B")
843 ("$(5#g(B" . "$,15v6-5u(B") 847 ("$(6#g(B" . "$,15v6-5u(B")
844 ("$(5#h(B" . "$,15w6-5_6-5p6-5o(B") 848 ("$(6#h(B" . "$,15w6-5_6-5p6-5o(B")
845 ("$(5#i(B" . "$,15w6-5_6-5o(B") 849 ("$(6#i(B" . "$,15w6-5_6-5o(B")
846 ("$(5#j(B" . "$,15w6-5_6-5u(B") 850 ("$(6#j(B" . "$,15w6-5_6-5u(B")
847 ("$(5#k(B" . "$,15w6-5_(B") 851 ("$(6#k(B" . "$,15w6-5_(B")
848 ("$(5#l(B" . "$,15w6-5`(B") 852 ("$(6#l(B" . "$,15w6-5`(B")
849 ("$(5#m(B" . "$,15x6-5h(B") 853 ("$(6#m(B" . "$,15x6-5h(B")
850 ("$(5#n(B" . "$,15x6-5p(B") 854 ("$(6#n(B" . "$,15x6-5p(B")
851 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 855 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
852 ;;2370 $(5#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~(B 856 ;;2370 $(6#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~(B
853 ("$(5#p(B" . "$,15y6-5c(B") 857 ("$(6#p(B" . "$,15y6-5c(B")
854 ("$(5#q(B" . "$,15y6-5h(B") 858 ("$(6#q(B" . "$,15y6-5h(B")
855 ("$(5#r(B" . "$,15y6-5n(B") 859 ("$(6#r(B" . "$,15y6-5n(B")
856 ("$(5#s(B" . "$,15y6-5o(B") 860 ("$(6#s(B" . "$,15y6-5o(B")
857 ("$(5#t(B" . "$,15y6-5p(B") 861 ("$(6#t(B" . "$,15y6-5p(B")
858 ("$(5#u(B" . "$,15y6-5r(B") 862 ("$(6#u(B" . "$,15y6-5r(B")
859 ("$(5#v(B" . "$,15y6-5u(B") 863 ("$(6#v(B" . "$,15y6-5u(B")
860 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 864 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
861 ;;2420 $(5$!$"$#$$$%$&$'$($)$*$+$,$-$.$/(B 865 ;;2420 $(6$!$"$#$$$%$&$'$($)$*$+$,$-$.$/(B
862 ("$(5$!(B" . "$,15U6-5d6-5p6-5o(B") 866 ("$(6$!(B" . "$,15U6-5d6-5p6-5o(B")
863 ("$(5$"(B" . "$,15U6-5d6-5u(B") 867 ("$(6$"(B" . "$,15U6-5d6-5u(B")
864 ("$(5$#(B" . "$,15U6-5d6-5o(B") 868 ("$(6$#(B" . "$,15U6-5d6-5o(B")
865 ("$(5$$(B" . "$,15U6-5h6-5o(B") 869 ("$(6$$(B" . "$,15U6-5h6-5o(B")
866 ("$(5$%(B" . "$,15U6-5p6-5o(B") 870 ("$(6$%(B" . "$,15U6-5p6-5o(B")
867 ("$(5$&(B" . "$,15U6-5u6-5o(B") 871 ("$(6$&(B" . "$,15U6-5u6-5o(B")
868 ("$(5$'(B" . "$,15U6-5U(B") 872 ("$(6$'(B" . "$,15U6-5U(B")
869 ("$(5$((B" . "$,15U6-5d(B") 873 ("$(6$((B" . "$,15U6-5d(B")
870 ("$(5$)(B" . "$,15U6-5h(B") 874 ("$(6$)(B" . "$,15U6-5h(B")
871 ("$(5$*(B" . "$,15U6-5n(B") 875 ("$(6$*(B" . "$,15U6-5n(B")
872 ("$(5$+(B" . "$,15U6-5o(B") 876 ("$(6$+(B" . "$,15U6-5o(B")
873 ("$(5$,(B" . "$,15U6-5r(B") 877 ("$(6$,(B" . "$,15U6-5r(B")
874 ("$(5$-(B" . "$,15U6-5u(B") 878 ("$(6$-(B" . "$,15U6-5u(B")
875 ("$(5$.(B" . "$,15U6-5w(B") 879 ("$(6$.(B" . "$,15U6-5w(B")
876 ("$(5$/(B" . "$,15X6-5h(B") 880 ("$(6$/(B" . "$,15X6-5h(B")
877 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 881 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
878 ;;2430 $(5$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?(B 882 ;;2430 $(6$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?(B
879 ("$(5$0(B" . "$,15Y6-5U6-5d6-5o(B") 883 ("$(6$0(B" . "$,15Y6-5U6-5d6-5o(B")
880 ("$(5$1(B" . "$,15Y6-5U6-5w6-5u(B") 884 ("$(6$1(B" . "$,15Y6-5U6-5w6-5u(B")
881 ("$(5$2(B" . "$,15Y6-5U6-5d(B") 885 ("$(6$2(B" . "$,15Y6-5U6-5d(B")
882 ("$(5$3(B" . "$,15Y6-5U6-5w(B") 886 ("$(6$3(B" . "$,15Y6-5U6-5w(B")
883 ("$(5$4(B" . "$,15Y6-5X6-5p(B") 887 ("$(6$4(B" . "$,15Y6-5X6-5p(B")
884 ("$(5$5(B" . "$,15Y6-5U6-5o(B") 888 ("$(6$5(B" . "$,15Y6-5U6-5o(B")
885 ("$(5$6(B" . "$,15Y6-5V6-5o(B") 889 ("$(6$6(B" . "$,15Y6-5V6-5o(B")
886 ("$(5$7(B" . "$,15Y6-5W6-5o(B") 890 ("$(6$7(B" . "$,15Y6-5W6-5o(B")
887 ("$(5$8(B" . "$,15Y6-5X6-5o(B") 891 ("$(6$8(B" . "$,15Y6-5X6-5o(B")
888 ("$(5$9(B" . "$,15Y6-5U(B") 892 ("$(6$9(B" . "$,15Y6-5U(B")
889 ("$(5$:(B" . "$,15Y6-5V(B") 893 ("$(6$:(B" . "$,15Y6-5V(B")
890 ("$(5$;(B" . "$,15Y6-5W(B") 894 ("$(6$;(B" . "$,15Y6-5W(B")
891 ("$(5$<(B" . "$,15Y6-5X(B") 895 ("$(6$<(B" . "$,15Y6-5X(B")
892 ("$(5$=(B" . "$,15Y6-5Y(B") 896 ("$(6$=(B" . "$,15Y6-5Y(B")
893 ("$(5$>(B" . "$,15Y6-5h(B") 897 ("$(6$>(B" . "$,15Y6-5h(B")
894 ("$(5$?(B" . "$,15Y6-5n(B") 898 ("$(6$?(B" . "$,15Y6-5n(B")
895 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 899 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
896 ;;2440 $(5$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O(B 900 ;;2440 $(6$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O(B
897 ("$(5$@(B" . "$,15Y6-5o(B") 901 ("$(6$@(B" . "$,15Y6-5o(B")
898 ("$(5$A(B" . "$,15Z6-5Z(B") 902 ("$(6$A(B" . "$,15Z6-5Z(B")
899 ("$(5$B(B" . "$,15Z6-5^(B") 903 ("$(6$B(B" . "$,15Z6-5^(B")
900 ("$(5$C(B" . "$,15[6-5o(B") 904 ("$(6$C(B" . "$,15[6-5o(B")
901 ("$(5$D(B" . "$,15\6-5p(B") 905 ("$(6$D(B" . "$,15\6-5p(B")
902 ("$(5$E(B" . "$,15\6-5^(B") 906 ("$(6$E(B" . "$,15\6-5^(B")
903 ("$(5$F(B" . "$,15^6-5Z(B") 907 ("$(6$F(B" . "$,15^6-5Z(B")
904 ("$(5$G(B" . "$,15^6-5\(B") 908 ("$(6$G(B" . "$,15^6-5\(B")
905 ("$(5$H(B" . "$,15_6-5U(B") 909 ("$(6$H(B" . "$,15_6-5U(B")
906 ("$(5$I(B" . "$,15_6-5_(B") 910 ("$(6$I(B" . "$,15_6-5_(B")
907 ("$(5$J(B" . "$,15_6-5`(B") 911 ("$(6$J(B" . "$,15_6-5`(B")
908 ("$(5$K(B" . "$,15_6-5o(B") 912 ("$(6$K(B" . "$,15_6-5o(B")
909 ("$(5$L(B" . "$,15`6-5o(B") 913 ("$(6$L(B" . "$,15`6-5o(B")
910 ("$(5$M(B" . "$,15a6-5W6-5o(B") 914 ("$(6$M(B" . "$,15a6-5W6-5o(B")
911 ("$(5$N(B" . "$,15a6-5X6-5p(B") 915 ("$(6$N(B" . "$,15a6-5X6-5p(B")
912 ("$(5$O(B" . "$,15a6-5p6-5o(B") 916 ("$(6$O(B" . "$,15a6-5p6-5o(B")
913 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 917 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
914 ;;2450 $(5$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_(B 918 ;;2450 $(6$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_(B
915 ("$(5$P(B" . "$,15a6-5W(B") 919 ("$(6$P(B" . "$,15a6-5W(B")
916 ("$(5$Q(B" . "$,15a6-5X(B") 920 ("$(6$Q(B" . "$,15a6-5X(B")
917 ("$(5$R(B" . "$,15a6-5a(B") 921 ("$(6$R(B" . "$,15a6-5a(B")
918 ("$(5$S(B" . "$,15a6-5n(B") 922 ("$(6$S(B" . "$,15a6-5n(B")
919 ("$(5$T(B" . "$,15a6-5o(B") 923 ("$(6$T(B" . "$,15a6-5o(B")
920 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 924 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
921 ;;2460 $(5$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o(B 925 ;;2460 $(6$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o(B
922 ("$(5$`(B" . "$,15b6-5o(B") 926 ("$(6$`(B" . "$,15b6-5o(B")
923 ("$(5$a(B" . "$,15d6-5d(B") 927 ("$(6$a(B" . "$,15d6-5d(B")
924 ("$(5$b(B" . "$,15d6-5h(B") 928 ("$(6$b(B" . "$,15d6-5h(B")
925 ("$(5$c(B" . "$,15f6-5f6-5o(B") 929 ("$(6$c(B" . "$,15f6-5f6-5o(B")
926 ("$(5$d(B" . "$,15f6-5g6-5o(B") 930 ("$(6$d(B" . "$,15f6-5g6-5o(B")
927 ("$(5$e(B" . "$,15f6-5m6-5o(B") 931 ("$(6$e(B" . "$,15f6-5m6-5o(B")
928 ("$(5$f(B" . "$,15f6-5p6-5o(B") 932 ("$(6$f(B" . "$,15f6-5p6-5o(B")
929 ("$(5$g(B" . "$,15f6-5u6-5o(B") 933 ("$(6$g(B" . "$,15f6-5u6-5o(B")
930 ("$(5$h(B" . "$,15f6-5W6-5p(B") 934 ("$(6$h(B" . "$,15f6-5W6-5p(B")
931 ("$(5$i(B" . "$,15f6-5X6-5p(B") 935 ("$(6$i(B" . "$,15f6-5X6-5p(B")
932 ("$(5$j(B" . "$,15f6-5f6-5u(B") 936 ("$(6$j(B" . "$,15f6-5f6-5u(B")
933 ("$(5$k(B" . "$,15f6-5g6-5u(B") 937 ("$(6$k(B" . "$,15f6-5g6-5u(B")
934 ("$(5$l(B" . "$,15f6-5W(B") 938 ("$(6$l(B" . "$,15f6-5W(B")
935 ("$(5$m(B" . "$,15f6-5X(B") 939 ("$(6$m(B" . "$,15f6-5X(B")
936 ("$(5$n(B" . "$,15f6-5f(B") 940 ("$(6$n(B" . "$,15f6-5f(B")
937 ("$(5$o(B" . "$,15f6-5g(B") 941 ("$(6$o(B" . "$,15f6-5g(B")
938 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f 942 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f
939 ;;2470 $(5$p$q$r$s$t$u$v$w$x$y$z${$|$}$~(B 943 ;;2470 $(6$p$q$r$s$t$u$v$w$x$y$z${$|$}$~(B
940 ("$(5$p(B" . "$,15f6-5h(B") 944 ("$(6$p(B" . "$,15f6-5h(B")
941 ("$(5$q(B" . "$,15f6-5l(B") 945 ("$(6$q(B" . "$,15f6-5l(B")
942 ("$(5$r(B" . "$,15f6-5m(B") 946 ("$(6$r(B" . "$,15f6-5m(B")
943 ("$(5$s(B" . "$,15f6-5n(B") 947 ("$(6$s(B" . "$,15f6-5n(B")
944 ("$(5$t(B" . "$,15f6-5o(B") 948 ("$(6$t(B" . "$,15f6-5o(B")
945 ("$(5$u(B" . "$,15f6-5u(B") 949 ("$(6$u(B" . "$,15f6-5u(B")
946 ("$(5$v(B" . "$,15g6-5h(B") 950 ("$(6$v(B" . "$,15g6-5h(B")
947 ("$(5$w(B" . "$,15h6-5h(B") 951 ("$(6$w(B" . "$,15h6-5h(B")
948 ("$(5$x(B" . "$,15j6-5d(B") 952 ("$(6$x(B" . "$,15j6-5d(B")
949 ("$(5$y(B" . "$,15j6-5h(B") 953 ("$(6$y(B" . "$,15j6-5h(B")
950 ("$(5$z(B" . "$,15j6-5r(B") 954 ("$(6$z(B" . "$,15j6-5r(B")
951 ("$(5${(B" . "$,15l6-5h(B") 955 ("$(6${(B" . "$,15l6-5h(B")
952 ("$(5$|(B" . "$,15l6-5l(B") 956 ("$(6$|(B" . "$,15l6-5l(B")
953 ("$(5$}(B" . "$,15l6-5u(B") 957 ("$(6$}(B" . "$,15l6-5u(B")
954 ("$(5$~(B" . "$,15m6-5h(B"))) 958 ("$(6$~(B" . "$,15m6-5h(B")))
955 959
956 (defconst indian-2-column-to-ucs-regexp 960 (defconst indian-2-column-to-ucs-regexp
957 "$(5!j!j(B\\|$(5"8"q(B\\|[$(5#&#'!*#*(B]$(5"p(B\\|[$(5!!(B-$(5$~(B]") 961 "$(6!j!j(B\\|$(6"8"q(B\\|[$(6#&#'!*#*(B]$(6"p(B\\|[$(6!!(B-$(6$~(B]")
958 962
959 (put 'indian-2-column-to-ucs-chartable 'char-table-extra-slots 1) 963 (put 'indian-2-column-to-ucs-chartable 'char-table-extra-slots 1)
960 (defconst indian-2-column-to-ucs-chartable 964 (defconst indian-2-column-to-ucs-chartable
961 (let ((table (make-char-table 'indian-2-column-to-ucs-chartable)) 965 (let ((table (make-char-table 'indian-2-column-to-ucs-chartable))
962 (alist nil)) 966 (alist nil))