*** empty log message ***

[gnu-emacs] / lisp / language / lao-util.el

diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
index 0dee3e6285d52cbc6d2c6f5404cbff979b0b9416..4db213dab0213052c5047affbd7ad52575eb1c64 100644 (file)
--- a/lisp/language/lao-util.el
+++ b/lisp/language/lao-util.el
@@ -1,8 +1,11 @@
 ;;; lao-util.el --- utilities for Lao -*- coding: iso-2022-7bit; -*-
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
+;;   Licensed to the Free Software Foundation.
 ;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2003
+;;   National Institute of Advanced Industrial Science and Technology (AIST)
+;;   Registration Number H13PRO009
 
 ;; Keywords: multilingual, Lao, i18n
 
@@ -35,8 +38,6 @@
 (define-category ?v "Lao upper/lower vowel" lao-category-table)
 (define-category ?t "Lao tone" lao-category-table)
 
-;; Fixme: Should `invalid' entries below be preserved?  (See also
-;; thai-util.el.)
 (let ((l '((?\e(1!\e(B consonant "LETTER KOR  KAI'" "CHICKEN")
           (?\e(1"\e(B consonant "LETTER KHOR KHAI'" "EGG")
           (?\e(1#\e(B invalid nil)
@@ -88,7 +89,7 @@
           (?\e(1Q\e(B vowel-upper "VOWEL SIGN MAI KAN")
           (?\e(1R\e(B vowel-base "VOWEL SIGN SARA AR")
           (?\e(1S\e(B vowel-base "VOWEL SIGN SARA AM")
-          (?\e(1T\e(B vowel-upper "VOWEL SIGN SARA I") 
+          (?\e(1T\e(B vowel-upper "VOWEL SIGN SARA I")
           (?\e(1U\e(B vowel-upper "VOWEL SIGN SARA II")
           (?\e(1V\e(B vowel-upper "VOWEL SIGN SARA EU")
           (?\e(1W\e(B vowel-upper "VOWEL SIGN SARA UR")
@@ -106,7 +107,7 @@
           (?\e(1c\e(B vowel-base "VOWEL SIGN SARA EI MAI MUAN\"")
           (?\e(1d\e(B vowel-base "VOWEL SIGN SARA AI MAI MAY")
           (?\e(1e\e(B invalid nil)
-          (?\e(1f\e(B special "KO LA (REPETITION)") 
+          (?\e(1f\e(B special "KO LA (REPETITION)")
           (?\e(1g\e(B invalid nil)
           (?\e(1h\e(B tone "TONE MAI EK")
           (?\e(1i\e(B tone "TONE MAI THO")
@@ -332,36 +333,6 @@
 
 (defconst lao-vowel-reordering-rule
   '(("\e(1P\e(B" (0 ?\e(1P\e(B) (0 ?\e(1Q\e(B))
-    ("\e(1R\e(B" (0 ?\e(1R\e(B))
-    ("\e(1T\e(B" (0 ?\e(1U\e(B))
-    ("\e(1U\e(B" (0 ?\e(1U\e(B))
-    ("\e(1V\e(B" (0 ?\e(1V\e(B))
-    ("\e(1W\e(B" (0 ?\e(1W\e(B))
-    ("\e(1X\e(B" (0 ?\e(1X\e(B))
-    ("\e(1Y\e(B" (0 ?\e(1Y\e(B))
-    ("\e(1`P\e(B" (?\e(1`\e(B 0 ?\e(1P\e(B) (?\e(1`\e(B 0 ?\e(1Q\e(B))
-    ("\e(1`\e(B" (?\e(1`\e(B 0))
-    ("\e(1aP\e(B" (?\e(1a\e(B 0 ?\e(1P\e(B) (?\e(1a\e(B 0 ?\e(1Q\e(B))
-    ("\e(1a\e(B" (?\e(1a\e(B 0))
-    ("\e(1bP\e(B" (?\e(1b\e(B 0 ?\e(1P\e(B) (0 ?\e(1[\e(B) (?\e(1-\e(B ?\e(1b\e(B 0 ?\e(1Q\e(B) (?\e(1G\e(B ?\e(1b\e(B 0 ?\e(1Q\e(B))
-    ("\e(1b\e(B" (?\e(1b\e(B 0))
-    ("\e(1`RP\e(B" (?\e(1`\e(B 0 ?\e(1R\e(B ?\e(1P\e(B) (0 ?\e(1Q\e(B ?\e(1M\e(B))
-    ("\e(1m\e(B" (0 ?\e(1m\e(B) (0 ?\e(1M\e(B))
-    ("\e(1`T\e(B" (?\e(1`\e(B 0 ?\e(1T\e(B))
-    ("\e(1`U\e(B" (?\e(1`\e(B 0 ?\e(1U\e(B))
-    ("\e(1[GP\e(B" (0 ?\e(1[\e(B ?\e(1G\e(B ?\e(1P\e(B) (0 ?\e(1Q\e(B ?\e(1G\e(B))
-    ("\e(1[G\e(B" (0 ?\e(1[\e(B ?\e(1G\e(B) (0 ?\e(1G\e(B))
-    ("\e(1`Q]P\e(B" (?\e(1`\e(B 0 ?\e(1Q\e(B ?\e(1]\e(B ?\e(1P\e(B) (0 ?\e(1Q\e(B ?\e(1]\e(B))
-    ("\e(1`Q]\e(B" (?\e(1`\e(B 0 ?\e(1Q\e(B ?\e(1]\e(B) (0 ?\e(1]\e(B))
-    ("\e(1`VM\e(B" (?\e(1`\e(B 0 ?\e(1V\e(B ?\e(1M\e(B))
-    ("\e(1`WM\e(B" (?\e(1`\e(B 0 ?\e(1W\e(B ?\e(1M\e(B))
-    ("\e(1d\e(B" (?\e(1d\e(B 0))
-    ("\e(1c\e(B" (?\e(1c\e(B 0))
-    ("\e(1`[R\e(B" (?\e(1`\e(B 0 ?\e(1[\e(B ?\e(1R\e(B))
-    ("\e(1S\e(B" (0 ?\e(1S\e(B))
-
-    ;; Unicode equivalents
-    ("\e(1P\e(B" (0 ?\e(1P\e(B) (0 ?\e(1Q\e(B))
     ("\e(1R\e(B" (0 ?\e(1R\e(B))
     ("\e(1T\e(B" (0 ?\e(1U\e(B))
     ("\e(1U\e(B" (0 ?\e(1U\e(B))