Initial revision

diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el
new file mode 100644 (file)
index 0000000..d354f53
--- /dev/null
+++ b/lisp/language/lao-util.el
@@ -0,0 +1,133 @@
+;; lao-util.el -- utilities for Lao
+
+;; Copyright (C) 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
+
+;; Keywords: multilingual, Lao
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Code:
+
+(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)
+          (?\e(1$\e(B consonant "LETTER QHOR QHWARGN" "BUFFALO")
+          (?\e(1%\e(B invalid nil)
+          (?  invalid nil)
+          (?\e(1'\e(B consonant "LETTER NGOR NGUU" "SNAKE")
+          (?\e(1(\e(B consonant "LETTER JOR JUA" "BUDDHIST NOVICE")
+          (?\e(1)\e(B invalid nil)
+          (?\e(1*\e(B consonant "LETTER XOR X\"ARNG" "ELEPHANT")
+          (?\e(1+\e(B invalid nil)
+          (?\e(1,\e(B invalid nil)
+          (?\e(1-\e(B consonant "LETTER YOR YUNG" "MOSQUITO")
+          (?\e(1.\e(B invalid nil)
+          (?\e(1.\e(B invalid nil)
+          (?\e(1.\e(B invalid nil)
+          (?\e(1.\e(B invalid nil)
+          (?\e(1.\e(B invalid nil)
+          (?\e(1.\e(B invalid nil)
+          (?\e(14\e(B consonant "LETTER DOR DANG" "NOSE")
+          (?\e(15\e(B consonant "LETTER TOR TAR" "EYE")
+          (?\e(16\e(B consonant "LETTER DHOR DHARM" "TO ASK,QUESTION")
+          (?\e(17\e(B consonant "LETTER THOR THUNG" "FLAG")
+          (?\e(18\e(B invalid nil)
+          (?\e(19\e(B consonant "LETTER NOR NOK" "BIRD")
+          (?\e(1:\e(B consonant "LETTER BOR BED" "FISHHOOK")
+          (?\e(1;\e(B consonant "LETTER POR PAR" "FISH")
+          (?\e(1<\e(B consonant "LETTER HPOR HPER\"" "BEE")
+          (?\e(1=\e(B consonant "LETTER FHOR FHAR" "WALL")
+          (?\e(1>\e(B consonant "LETTER PHOR PHUU" "MOUNTAIN")
+          (?\e(1?\e(B consonant "LETTER FOR FAI" "FIRE")
+          (?\e(1@\e(B invalid nil)
+          (?\e(1A\e(B consonant "LETTER MOR MAR\"" "HORSE")
+          (?\e(1B\e(B consonant "LETTER GNOR GNAR" "MEDICINE")
+          (?\e(1C\e(B consonant "LETTER ROR ROD" "CAR")
+          (?\e(1D\e(B invalid nil)
+          (?\e(1E\e(B consonant "LETTER LOR LIING" "MONKEY")
+          (?\e(1F\e(B invalid nil)
+          (?\e(1G\e(B consonant "LETTER WOR WII" "HAND FAN")
+          (?\e(1H\e(B invalid nil)
+          (?\e(1I\e(B invalid nil)
+          (?\e(1J\e(B consonant "LETTER SOR SEA" "TIGER")
+          (?\e(1K\e(B consonant "LETTER HHOR HHAI" "JAR")
+          (?\e(1L\e(B invalid nil)
+          (?\e(1M\e(B consonant "LETTER OR OOW" "TAKE")
+          (?\e(1N\e(B consonant "LETTER HOR HEA" "BOAT")
+          (?\e(1O\e(B special "ELLIPSIS")
+          (?\e(1P\e(B vowel-base "VOWEL SIGN SARA A")
+          (?\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(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")
+          (?\e(1X\e(B vowel-lower "VOWEL SIGN SARA U")
+          (?\e(1Y\e(B vowel-lower "VOWEL SIGN SARA UU")
+          (?\e(1Z\e(B invalid nil)
+          (?\e(1[\e(B vowel-upper "VOWEL SIGN MAI KONG")
+          (?\e(1\\e(B semivowel-lower "SEMIVOWEL SIGN LO")
+          (?\e(1]\e(B vowel-base "SEMIVOWEL SIGN SARA IA")
+          (?\e(1^\e(B invalid nil)
+          (?\e(1_\e(B invalid nil)
+          (?\e(1`\e(B vowel-base "VOWEL SIGN SARA EE")
+          (?\e(1a\e(B vowel-base "VOWEL SIGN SARA AA")
+          (?\e(1b\e(B vowel-base "VOWEL SIGN SARA OO")
+          (?\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(1g\e(B invalid nil)
+          (?\e(1h\e(B tone "TONE MAI EK")
+          (?\e(1i\e(B tone "TONE MAI THO")
+          (?\e(1j\e(B tone "TONE MAI TI")
+          (?\e(1k\e(B tone "TONE MAI JADTAWAR")
+          (?\e(1l\e(B tone "CANCELLATION MARK")
+          (?\e(1m\e(B vowel-upper "VOWEL SIGN SARA OR")
+          (?\e(1n\e(B invalid nil)
+          (?\e(1o\e(B invalid nil)
+          (?\e(1p\e(B special "DIGIT ZERO")
+          (?\e(1q\e(B special "DIGIT ONE")
+          (?\e(1r\e(B special "DIGIT TWO")
+          (?\e(1s\e(B special "DIGIT THREE")
+          (?\e(1t\e(B special "DIGIT FOUR")
+          (?\e(1u\e(B special "DIGIT FIVE")
+          (?\e(1v\e(B special "DIGIT SIX")
+          (?\e(1w\e(B special "DIGIT SEVEN")
+          (?\e(1x\e(B special "DIGIT EIGHT")
+          (?\e(1y\e(B special "DIGIT NINE")
+          (?\e(1z\e(B invalid nil)
+          (?\e(1{\e(B invalid nil)
+          (?\e(1|\e(B consonant "LETTER NHOR NHUU" "MOUSE")
+          (?\e(1}\e(B consonant "LETTER MHOR MHAR" "DOG")
+          (?\e(1~\e(B invalid nil)
+          ))
+      elm)
+  (while l
+    (setq elm (car l))
+    (put-char-code-property (car elm) 'phonetic-type (car (cdr elm)))
+    (put-char-code-property (car elm) 'name (nth 2 elm))
+    (put-char-code-property (car elm) 'meaning (nth 3 elm))
+    (setq l (cdr l))))
+
+;;
+(provide 'language/lao-util)
+
+;;; lao-util.el ends here

diff --git a/lisp/language/lao.el b/lisp/language/lao.el
new file mode 100644 (file)
index 0000000..78e73e1
--- /dev/null
+++ b/lisp/language/lao.el
@@ -0,0 +1,62 @@
+;;; lao.el --- Support for Lao
+
+;; Copyright (C) 1997 Free Software Foundation, Inc.
+;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
+
+;; Keywords: multilingual, Lao
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2, or (at your option)
+;; any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
+
+;;; Code:
+
+(make-coding-system
+ 'lao 2 ?T
+ "Coding-system used for ASCII(MSB=0) & LAO(MSB=1)."
+ '((ascii t) (lao t) nil nil
+   nil ascii-eol))
+
+(register-input-method
+ "Lao" '("quail-lao" quail-use-package "quail/lao"))
+
+(register-input-method
+ "Lao" '("quail-lrt" quail-use-package "quail/lrt"))
+
+(defun setup-lao-environment ()
+  (setq coding-category-iso-8-1 'lao)
+
+  (set-coding-priority
+   '(coding-category-iso-7
+     coding-category-iso-8-1))
+
+  (set-default buffer-file-coding-system 'iso-2022-7)
+
+  (setq default-input-method '("Lao" . "quail-lao")))
+
+(set-language-info-alist
+ "Lao" '((setup-function . setup-lao-environment)
+        (charset . (lao))
+        (coding-system . (lao))
+        (documentation . t)
+        (sample-text . "Lao(\e(1>RJRERG\e(B)            \e(1JP:R-\e04U\e1\e(B, \e0\e(1"i\e1M-`\e0;Q\e19\e0$[\e19ERG\e(B")))
+
+(aset use-default-ascent ?\e(1;\e(B t)
+(aset use-default-ascent ?\e(1=\e(B t)
+(aset use-default-ascent ?\e(1?\e(B t)
+(aset use-default-ascent ?\e(1B\e(B t)
+
+;;; lao.el ends here