;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:12 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/language/thai-util.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`thai-util.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\302 \303\304\305 #\210\303\306\307 #\210\303\310\311 #\207" [current-load-list thai-category-table make-category-table define-category 99 "Thai consonant" 118 "Thai upper/lower vowel" 116 "Thai tone"] 4) #@56 Regular expression matching a Thai composite sequence. (defvar thai-composition-pattern "\\cc\\(\\ct\\|\\cv\\ct?\\)" (#$ . 854)) (byte-code "\305\306 \203Q @ A@A@\307 \310\n#\210\n\311=\203*\312 \313\f#\210\202E\n\314>\2039\312 \315\f#\210\202E\n\316=\203E\312 \317\f#\210\307 \320\3218#\210*\202*\306\207" [elm l ptype char thai-category-table ((2721 consonant "LETTER KO KAI") (2722 consonant "LETTER KHO KHAI") (2723 consonant "LETTER KHO KHUAT") (2724 consonant "LETTER KHO KHWAI") (2725 consonant "LETTER KHO KHON") (2726 consonant "LETTER KHO RAKHANG") (2727 consonant "LETTER NGO NGU") (2728 consonant "LETTER CHO CHAN") (2729 consonant "LETTER CHO CHING") (2730 consonant "LETTER CHO CHANG") (2731 consonant "LETTER SO SO") (2732 consonant "LETTER CHO CHOE") (2733 consonant "LETTER YO YING") (2734 consonant "LETTER DO CHADA") (2735 consonant "LETTER TO PATAK") (2736 consonant "LETTER THO THAN") (2737 consonant "LETTER THO NANGMONTHO") (2738 consonant "LETTER THO PHUTHAO") (2739 consonant "LETTER NO NEN") (2740 consonant "LETTER DO DEK") (2741 consonant "LETTER TO TAO") (2742 consonant "LETTER THO THUNG") (2743 consonant "LETTER THO THAHAN") (2744 consonant "LETTER THO THONG") (2745 consonant "LETTER NO NU") (2746 consonant "LETTER BO BAIMAI") (2747 consonant "LETTER PO PLA") (2748 consonant "LETTER PHO PHUNG") (2749 consonant "LETTER FO FA") (2750 consonant "LETTER PHO PHAN") (2751 consonant "LETTER FO FAN") (2752 consonant "LETTER PHO SAMPHAO") (2753 consonant "LETTER MO MA") (2754 consonant "LETTER YO YAK") (2755 consonant "LETTER RO RUA") (2756 vowel-base "LETTER RU (Pali vowel letter)") (2757 consonant "LETTER LO LING") (2758 vowel-base "LETTER LU (Pali vowel letter)") (2759 consonant "LETTER WO WAEN") (2760 consonant "LETTER SO SALA") (2761 consonant "LETTER SO RUSI") (2762 consonant "LETTER SO SUA") (2763 consonant "LETTER HO HIP") (2764 consonant "LETTER LO CHULA") (2765 consonant "LETTER O ANG") (2766 consonant "LETTER HO NOK HUK") (2767 special "PAI YAN NOI (abbreviation)") (2768 vowel-base "VOWEL SIGN SARA A") (2769 vowel-upper "VOWEL SIGN MAI HAN-AKAT N/S-T") (2770 vowel-base "VOWEL SIGN SARA AA") (2771 vowel-base "VOWEL SIGN SARA AM") (2772 vowel-upper "VOWEL SIGN SARA I N/S-T") (2773 vowel-upper "VOWEL SIGN SARA II N/S-T") (2774 vowel-upper "VOWEL SIGN SARA UE N/S-T") (2775 vowel-upper "VOWEL SIGN SARA UEE N/S-T") (2776 vowel-lower "VOWEL SIGN SARA U N/S-B") (2777 vowel-lower "VOWEL SIGN SARA UU N/S-B") (2778 vowel-lower "VOWEL SIGN PHINTHU N/S-B (Pali virama)") (2779 invalid nil) (2780 invalid nil) (2781 invalid nil) (2782 invalid nil) (2783 special "BAHT SIGN (currency symbol)") (2784 vowel-base "VOWEL SIGN SARA E") (2785 vowel-base "VOWEL SIGN SARA AE") (2786 vowel-base "VOWEL SIGN SARA O") (2787 vowel-base "VOWEL SIGN SARA MAI MUAN") (2788 vowel-base "VOWEL SIGN SARA MAI MALAI") (2789 vowel-base "LAK KHANG YAO") (2790 special "MAI YAMOK (repetion)") (2791 vowel-upper "VOWEL SIGN MAI TAI KHU N/S-T") (2792 tone "TONE MAI EK N/S-T") (2793 tone "TONE MAI THO N/S-T") (2794 tone "TONE MAI TRI N/S-T") (2795 tone "TONE MAI CHATTAWA N/S-T") (2796 tone "THANTHAKHAT N/S-T (cancellation mark)") (2797 tone "NIKKHAHIT N/S-T (final nasal)") (2798 vowel-upper "YAMAKKAN N/S-T") (2799 special "FONRMAN") (2800 special "DIGIT ZERO") (2801 special "DIGIT ONE") (2802 special "DIGIT TWO") (2803 special "DIGIT THREE") (2804 special "DIGIT FOUR") (2805 special "DIGIT FIVE") (2806 special "DIGIT SIX") (2807 special "DIGIT SEVEN") (2808 special "DIGIT EIGHT") (2809 special "DIGIT NINE") (2810 special "ANGKHANKHU (ellipsis)") (2811 special "KHOMUT (beginning of religious texts)") (2812 invalid nil) (2813 invalid nil) (2814 invalid nil)) nil put-char-code-property phonetic-type consonant modify-category-entry 99 (vowel-upper vowel-lower) 118 tone 116 name 2] 5) #@146 Compose Thai characters in the region. When called from a program, expects two arguments, positions (integers or markers) specifying the region. (defalias 'thai-compose-region #[(beg end) "\214 }\210eb\210\305 \306 !\210\307\216\310\f\311\312#\205#\313\314\224\314\225\"\210\202+\207" [beg end current-category-table thai-category-table thai-composition-pattern category-table set-category-table ((set-category-table current-category-table)) re-search-forward nil t compose-region 0] 4 (#$ . 4696) "r"]) #@68 Compose Thai characters in STRING and return the resulting string. (defalias 'thai-compose-string #[(string) "\305 \306 !\210\307\216\310\311 \f\n#\211\203\"\312\f\n\310\225#\210\310\225\202 +\f\207" [current-category-table thai-category-table idx thai-composition-pattern string category-table set-category-table ((set-category-table current-category-table)) 0 string-match compose-string] 4 (#$ . 5211)]) #@48 Compose Thai characters in the current buffer. (defalias 'thai-compose-buffer #[nil "\300ed\"\207" [thai-compose-region] 3 (#$ . 5630) nil]) (defalias 'thai-post-read-conversion #[(len) "\301``\\\"\210\207" [len thai-compose-region] 4]) #@229 Compose Thai text in the region FROM and TO. The text matches the regular expression PATTERN. Optional 4th argument STRING, if non-nil, is a string containing text to compose. The return value is number of composed characters. (defalias 'thai-composition-function #[(from to pattern &optional string) "T W\205 Z\n\203\303\n #\210\202\304 \"\210 Z\210\207" [from to string compose-string compose-region] 5 (#$ . 5876)]) (provide 'thai-util)