From a549727e1739222ef9b0689adf85d0a29a40528a Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 7 Dec 2001 18:21:04 +0000 Subject: [PATCH] Add Unicode equivalents for rules. (lao-post-read-conversion): New function. --- lisp/ChangeLog | 6 +++ lisp/language/lao-util.el | 105 +++++++++++++++++++++++++++++++++++++- 2 files changed, 109 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2b63ee80f53..64a5cf1421e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -13,6 +13,12 @@ 2001-12-07 Dave Love + * language/lao-util.el: Add Unicode equivalents for rules. + (lao-post-read-conversion): New function. + + * language/lao.el: Add Unicode equivalents. + (lao): Add post-read conversion. + * international/latin1-disp.el: Fix some 8-bit-graphic characters. Use iso2022 encoding. (latin1-char-displayable-p): Doc fix. diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el index 1fca9c4dbb5..1639b1bf78b 100644 --- a/lisp/language/lao-util.el +++ b/lisp/language/lao-util.el @@ -2,6 +2,7 @@ ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. +;; Copyright (C) 2001 Free Software Foundation, Inc. ;; Keywords: multilingual, Lao @@ -128,7 +129,72 @@ (?(1|(B consonant "LETTER NHOR NHUU" "MOUSE") (?(1}(B consonant "LETTER MHOR MHAR" "DOG") (?(1~(B invalid nil) - )) + ;; Unicode equivalents + (?$,1D!(B consonant "LETTER KOR KAI'" "CHICKEN") + (?$,1D"(B consonant "LETTER KHOR KHAI'" "EGG") + (?$,1D$(B consonant "LETTER QHOR QHWARGN" "BUFFALO") + (?$,1D'(B consonant "LETTER NGOR NGUU" "SNAKE") + (?$,1D((B consonant "LETTER JOR JUA" "BUDDHIST NOVICE") + (?$,1D*(B consonant "LETTER XOR X\"ARNG" "ELEPHANT") + (?$,1D-(B consonant "LETTER YOR YUNG" "MOSQUITO") + (?$,1D4(B consonant "LETTER DOR DANG" "NOSE") + (?$,1D5(B consonant "LETTER TOR TAR" "EYE") + (?$,1D6(B consonant "LETTER THOR THUNG" "TO ASK,QUESTION") + (?$,1D7(B consonant "LETTER DHOR DHARM" "FLAG") + (?$,1D9(B consonant "LETTER NOR NOK" "BIRD") + (?$,1D:(B consonant "LETTER BOR BED" "FISHHOOK") + (?$,1D;(B consonant "LETTER POR PAR" "FISH") + (?$,1D<(B consonant "LETTER HPOR HPER\"" "BEE") + (?$,1D=(B consonant "LETTER FHOR FHAR" "WALL") + (?$,1D>(B consonant "LETTER PHOR PHUU" "MOUNTAIN") + (?$,1D?(B consonant "LETTER FOR FAI" "FIRE") + (?$,1DA(B consonant "LETTER MOR MAR\"" "HORSE") + (?$,1DB(B consonant "LETTER GNOR GNAR" "MEDICINE") + (?$,1DC(B consonant "LETTER ROR ROD" "CAR") + (?$,1DE(B consonant "LETTER LOR LIING" "MONKEY") + (?$,1DG(B consonant "LETTER WOR WII" "HAND FAN") + (?$,1DJ(B consonant "LETTER SOR SEA" "TIGER") + (?$,1DK(B consonant "LETTER HHOR HHAI" "JAR") + (?$,1DM(B consonant "LETTER OR OOW" "TAKE") + (?$,1DN(B consonant "LETTER HOR HEA" "BOAT") + (?$,1DO(B special "ELLIPSIS") + (?$,1DP(B vowel-base "VOWEL SIGN SARA A") + (?$,1DQ(B vowel-upper "VOWEL SIGN MAI KAN") + (?$,1DR(B vowel-base "VOWEL SIGN SARA AR") + (?$,1DS(B vowel-base "VOWEL SIGN SARA AM") + (?$,1DT(B vowel-upper "VOWEL SIGN SARA I") + (?$,1DU(B vowel-upper "VOWEL SIGN SARA II") + (?$,1DV(B vowel-upper "VOWEL SIGN SARA EU") + (?$,1DW(B vowel-upper "VOWEL SIGN SARA UR") + (?$,1DX(B vowel-lower "VOWEL SIGN SARA U") + (?$,1DY(B vowel-lower "VOWEL SIGN SARA UU") + (?$,1D[(B vowel-upper "VOWEL SIGN MAI KONG") + (?$,1D\(B semivowel-lower "SEMIVOWEL SIGN LO") + (?$,1D](B vowel-base "SEMIVOWEL SIGN SARA IA") + (?$,1D`(B vowel-base "VOWEL SIGN SARA EE") + (?$,1Da(B vowel-base "VOWEL SIGN SARA AA") + (?$,1Db(B vowel-base "VOWEL SIGN SARA OO") + (?$,1Dc(B vowel-base "VOWEL SIGN SARA EI MAI MUAN\"") + (?$,1Dd(B vowel-base "VOWEL SIGN SARA AI MAI MAY") + (?$,1Df(B special "KO LA (REPETITION)") + (?$,1Dh(B tone "TONE MAI EK") + (?$,1Di(B tone "TONE MAI THO") + (?$,1Dj(B tone "TONE MAI TI") + (?$,1Dk(B tone "TONE MAI JADTAWAR") + (?$,1Dl(B tone "CANCELLATION MARK") + (?$,1Dm(B vowel-upper "VOWEL SIGN SARA OR") + (?$,1Dp(B special "DIGIT ZERO") + (?$,1Dq(B special "DIGIT ONE") + (?$,1Dr(B special "DIGIT TWO") + (?$,1Ds(B special "DIGIT THREE") + (?$,1Dt(B special "DIGIT FOUR") + (?$,1Du(B special "DIGIT FIVE") + (?$,1Dv(B special "DIGIT SIX") + (?$,1Dw(B special "DIGIT SEVEN") + (?$,1Dx(B special "DIGIT EIGHT") + (?$,1Dy(B special "DIGIT NINE") + (?$,1D|(B consonant "LETTER NHOR NHUU" "MOUSE") + (?$,1D}(B consonant "LETTER MHOR MHAR" "DOG"))) elm) (while l (setq elm (car l) l (cdr l)) @@ -356,7 +422,37 @@ ("(1d(B" (?(1d(B 0)) ("(1c(B" (?(1c(B 0)) ("(1`[R(B" (?(1`(B 0 ?(1[(B ?(1R(B)) - ("(1S(B" (0 ?(1S(B))) + ("(1S(B" (0 ?(1S(B)) + + ;; Unicode equivalents + ("$,1DP(B" (0 ?$,1DP(B) (0 ?$,1DQ(B)) + ("$,1DR(B" (0 ?$,1DR(B)) + ("$,1DT(B" (0 ?$,1DU(B)) + ("$,1DU(B" (0 ?$,1DU(B)) + ("$,1DV(B" (0 ?$,1DV(B)) + ("$,1DW(B" (0 ?$,1DW(B)) + ("$,1DX(B" (0 ?$,1DX(B)) + ("$,1DY(B" (0 ?$,1DY(B)) + ("$,1D`DP(B" (?$,1D`(B 0 ?$,1DP(B) (?$,1D`(B 0 ?$,1DQ(B)) + ("$,1D`(B" (?$,1D`(B 0)) + ("$,1DaDP(B" (?$,1Da(B 0 ?$,1DP(B) (?$,1Da(B 0 ?$,1DQ(B)) + ("$,1Da(B" (?$,1Da(B 0)) + ("$,1DbDP(B" (?$,1Db(B 0 ?$,1DP(B) (0 ?$,1D[(B) (?$,1D-(B ?$,1Db(B 0 ?$,1DQ(B) (?$,1DG(B ?$,1Db(B 0 ?$,1DQ(B)) + ("$,1Db(B" (?$,1Db(B 0)) + ("$,1D`DRDP(B" (?$,1D`(B 0 ?$,1DR(B ?$,1DP(B) (0 ?$,1DQ(B ?$,1DM(B)) + ("$,1Dm(B" (0 ?$,1Dm(B) (0 ?$,1DM(B)) + ("$,1D`DT(B" (?$,1D`(B 0 ?$,1DT(B)) + ("$,1D`DU(B" (?$,1D`(B 0 ?$,1DU(B)) + ("$,1D[DGDP(B" (0 ?$,1D[(B ?$,1DG(B ?$,1DP(B) (0 ?$,1DQ(B ?$,1DG(B)) + ("$,1D[DG(B" (0 ?$,1D[(B ?$,1DG(B) (0 ?$,1DG(B)) + ("$,1D`DQD]DP(B" (?$,1D`(B 0 ?$,1DQ(B ?$,1D](B ?$,1DP(B) (0 ?$,1DQ(B ?$,1D](B)) + ("$,1D`DQD](B" (?$,1D`(B 0 ?$,1DQ(B ?$,1D](B) (0 ?$,1D](B)) + ("$,1D`DVDM(B" (?$,1D`(B 0 ?$,1DV(B ?$,1DM(B)) + ("$,1D`DWDM(B" (?$,1D`(B 0 ?$,1DW(B ?$,1DM(B)) + ("$,1Dd(B" (?$,1Dd(B 0)) + ("$,1Dc(B" (?$,1Dc(B 0)) + ("$,1D`D[DR(B" (?$,1D`(B 0 ?$,1D[(B ?$,1DR(B)) + ("$,1DS(B" (0 ?$,1DS(B))) "Alist of Lao vowel string vs the corresponding re-ordering rule. Each element has this form: (VOWEL NO-MAA-SAKOD-RULE WITH-MAA-SAKOD-RULE (MAA-SAKOD-0 RULE-0) ...) @@ -486,6 +582,11 @@ syllable. In that case, FROM and TO are indexes to STR." (concat lao-str (substring str from to)) lao-str))) +;;;###autoload +(defun lao-post-read-conversion (len) + (lao-compose-region (point) (+ (point) len)) + len) + ;;;###autoload (defun lao-composition-function (from to pattern &optional string) "Compose Lao text in the region FROM and TO. -- 2.39.2