[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/language/lao-util.el
From: |
Dave Love |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/language/lao-util.el |
Date: |
Fri, 07 Dec 2001 13:18:33 -0500 |
Index: emacs/lisp/language/lao-util.el
diff -c emacs/lisp/language/lao-util.el:1.16
emacs/lisp/language/lao-util.el:1.17
*** emacs/lisp/language/lao-util.el:1.16 Sun Jul 15 15:53:53 2001
--- emacs/lisp/language/lao-util.el Fri Dec 7 13:18:33 2001
***************
*** 2,7 ****
--- 2,8 ----
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
+ ;; Copyright (C) 2001 Free Software Foundation, Inc.
;; Keywords: multilingual, Lao
***************
*** 128,134 ****
(?(1|(B consonant "LETTER NHOR NHUU" "MOUSE")
(?(1}(B consonant "LETTER MHOR MHAR" "DOG")
(?(1~(B invalid nil)
! ))
elm)
(while l
(setq elm (car l) l (cdr l))
--- 129,200 ----
(?(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,362 ****
("(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)))
"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) ...)
--- 422,458 ----
("(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))
!
! ;; 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) ...)
***************
*** 485,490 ****
--- 581,591 ----
(if (< from to)
(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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/language/lao-util.el,
Dave Love <=