;ELC ;;; compiled by handa@tsingyi.etl.go.jp on Wed Aug 19 12:42:30 1998 ;;; from file /net/mulelab/export/dist/mule-2.3-19.34/lisp/thai.el ;;; emacs version 19.34. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`thai.el' was compiled for Emacs 19.29 or later")) #@50 Association list of thai-character and property. (defconst *thai-characters* (quote ((2721 . consonant) (2722 . consonant) (2723 . consonant) (2724 . consonant) (2725 . consonant) (2726 . consonant) (2727 . consonant) (2728 . consonant) (2729 . consonant) (2730 . consonant) (2731 . consonant) (2732 . consonant) (2733 . consonant) (2734 . consonant) (2735 . consonant) (2736 . consonant) (2737 . consonant) (2738 . consonant) (2739 . consonant) (2740 . consonant) (2741 . consonant) (2742 . consonant) (2743 . consonant) (2744 . consonant) (2745 . consonant) (2746 . consonant) (2747 . consonant) (2748 . consonant) (2749 . consonant) (2750 . consonant) (2751 . consonant) (2752 . consonant) (2753 . consonant) (2754 . consonant) (2755 . consonant) (2756 . vowel-base) (2757 . consonant) (2758 . vowel-base) (2759 . consonant) (2760 . consonant) (2761 . consonant) (2762 . consonant) (2763 . consonant) (2764 . consonant) (2765 . consonant) (2766 . consonant) (2767 . special) (2768 . vowel-base) (2769 . vowel-upper) (2770 . vowel-base) (2771 . vowel-base) (2772 . vowel-upper) (2773 . vowel-upper) (2774 . vowel-upper) (2775 . vowel-upper) (2776 . vowel-lower) (2777 . vowel-lower) (2778 . vowel-lower) (2779 . not-used) (2780 . not-used) (2781 . not-used) (2782 . not-used) (2783 . special) (2784 . vowel-base) (2785 . vowel-base) (2786 . vowel-base) (2787 . vowel-base) (2788 . vowel-base) (2789 . vowel-base) (2790 . special) (2791 . vowel-upper) (2792 . tone) (2793 . tone) (2794 . tone) (2795 . tone) (2796 . tone) (2797 . tone) (2798 . vowel-upper) (2799 . special) (2800 . special) (2801 . special) (2802 . special) (2803 . special) (2804 . special) (2805 . special) (2806 . special) (2807 . special) (2808 . special) (2809 . special) (2810 . special) (2811 . special) (2812 . not-used) (2813 . not-used) (2814 . not-used))) (#$ . 483)) (byte-code "ÀÁ!ÂB BÀ‡" [string-to-char "€¥Ñ¥é" vowel-upper-tone *thai-characters*] 2) #@26 Category table for Thai. (defconst *thai-category-table* (byte-code "ÀÁ !‡" [copy-category-table standard-category-table] 2) (#$ . 2423)) (byte-code "ÀÁ #ˆÀÄÅ #ˆÀÆÇ #ˆɉ\n ‰\fƒr\f@@ \f@A‰\nÍ=ƒ<Î Á #ˆ‚i\nÏ=„Q\nÐ=„Q\nÑ=ƒ[Î Ä #ˆ‚i\nÒ=„iÎ Æ #ˆ\fA‰\f„ +ɇ" [define-category-mnemonic 48 "Thai consonants" *thai-category-table* 49 "Thai upper/lower vowel or tone mark." 50 "Thai base vowel or special characters." *thai-characters* nil prop ch chars consonant modify-category-entry vowel-upper vowel-lower tone vowel-upper-tone] 5) #@48 Compose Thai characters in the current buffer. (defalias 'thai-compose-buffer #[nil "Àed\"‡" [thai-compose-region] 3 (#$ . 2982) nil]) #@40 Compose Thai characters in the region. (defalias 'thai-compose-region #[(beg end) "Œ }ˆÂed\"ˆebˆÃ ÄÇŽÈ !ˆÊËÄÌ#…,ÍΔΕ\"ˆ‚,‡" [beg end decompose-region category-table nil str ctbl ((set-category-table ctbl)) set-category-table *thai-category-table* re-search-forward "\\c0\\c1+" t compose-region 0] 4 (#$ . 3123) "r"]) (provide (quote thai))