diff options
Diffstat (limited to 'leim/quail/lao.el')
| -rw-r--r-- | leim/quail/lao.el | 160 |
1 files changed, 80 insertions, 80 deletions
diff --git a/leim/quail/lao.el b/leim/quail/lao.el index 268ee9c2b52..52357afd8dd 100644 --- a/leim/quail/lao.el +++ b/leim/quail/lao.el @@ -1,4 +1,4 @@ -;;; lao.el --- Quail package for inputting Lao characters -*-coding: iso-2022-7bit;-*- +;;; lao.el --- Quail package for inputting Lao characters -*-coding: utf-8;-*- ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, ;; 2006, 2007, 2008, 2009, 2010, 2011 @@ -48,104 +48,104 @@ ("#" . "3") ("$" . "4") ("&" . "5") - ("%" . "(1l(B") - ("'" . "(1'(B") + ("%" . "໌") + ("'" . "ງ") ("(" . "7") (")" . "8") ("*" . "6") - ("+" . ["(1mh(B"]) - ("," . "(1A(B") - ("-" . "(1*(B") - ("." . "(1c(B") - ("/" . "(1=(B") - ("0" . "(1"(B") - ("1" . "(1B(B") - ("2" . "(1?(B") - ("3" . "(1b(B") - ("4" . "(16(B") - ("5" . "(1X(B") - ("6" . "(1Y(B") - ("7" . "(1$(B") - ("8" . "(15(B") - ("9" . "(1((B") + ("+" . ["ໍ່"]) + ("," . "ມ") + ("-" . "ຊ") + ("." . "ໃ") + ("/" . "ຝ") + ("0" . "ຂ") + ("1" . "ຢ") + ("2" . "ຟ") + ("3" . "ໂ") + ("4" . "ຖ") + ("5" . "ຸ") + ("6" . "ູ") + ("7" . "ຄ") + ("8" . "ຕ") + ("9" . "ຈ") (":" . "%") - (";" . "(1G(B") - ("<" . "(1}(B") - ("=" . "(1m(B") + (";" . "ວ") + ("<" . "ໝ") + ("=" . "ໍ") (">" . "$") ("?" . ")") ("@" . "2") - ("A" . ["(1Qi(B"]) - ("B" . ["(1Vi(B"]) - ("C" . "(1O(B") + ("A" . ["ັ້"]) + ("B" . ["ຶ້"]) + ("C" . "ຯ") ("D" . ".") - ("E" . ["(1Si(B"]) + ("E" . ["ຳ້"]) ("F" . ",") ("G" . ":") - ("H" . "(1j(B") - ("I" . "(1N(B") - ("J" . "(1k(B") + ("H" . "໊") + ("I" . "ຮ") + ("J" . "໋") ("K" . "!") ("L" . "?") - ("M" . "(1f(B") - ("N" . ["(1Wi(B"]) - ("O" . "(1|(B") - ("P" . "(1](B") - ("Q" . ["(1[i(B"]) + ("M" . "ໆ") + ("N" . ["ື້"]) + ("O" . "ໜ") + ("P" . "ຽ") + ("Q" . ["ົ້"]) ("R" . "_") ("S" . ";") ("T" . "+") - ("U" . ["(1Ui(B"]) + ("U" . ["ີ້"]) ("V" . "x") ("W" . "0") ("X" . "(") - ("Y" . ["(1Ti(B"]) + ("Y" . ["ິ້"]) ("Z" . "\"") - ("[" . "(1:(B") - ("]" . "(1E(B") - ("^" . "(1\(B") + ("[" . "ບ") + ("]" . "ລ") + ("^" . "ຼ") ("_" . "9") - ("`" . "(1'(B") - ("a" . "(1Q(B") - ("b" . "(1V(B") - ("c" . "(1a(B") - ("d" . "(1!(B") - ("e" . "(1S(B") - ("f" . "(14(B") - ("g" . "(1`(B") - ("h" . "(1i(B") - ("i" . "(1C(B") - ("j" . "(1h(B") - ("k" . "(1R(B") - ("l" . "(1J(B") - ("m" . "(17(B") - ("n" . "(1W(B") - ("o" . "(19(B") - ("p" . "(1-(B") - ("q" . "(1[(B") - ("r" . "(1>(B") - ("s" . "(1K(B") - ("t" . "(1P(B") - ("u" . "(1U(B") - ("v" . "(1M(B") - ("w" . "(1d(B") - ("x" . "(1;(B") - ("y" . "(1T(B") - ("z" . "(1<(B") + ("`" . "ງ") + ("a" . "ັ") + ("b" . "ຶ") + ("c" . "ແ") + ("d" . "ກ") + ("e" . "ຳ") + ("f" . "ດ") + ("g" . "ເ") + ("h" . "້") + ("i" . "ຣ") + ("j" . "່") + ("k" . "າ") + ("l" . "ສ") + ("m" . "ທ") + ("n" . "ື") + ("o" . "ນ") + ("p" . "ຍ") + ("q" . "ົ") + ("r" . "ພ") + ("s" . "ຫ") + ("t" . "ະ") + ("u" . "ີ") + ("v" . "ອ") + ("w" . "ໄ") + ("x" . "ປ") + ("y" . "ິ") + ("z" . "ຜ") ("{" . "-") - ("|" . ["(1K\(B"]) + ("|" . ["ຫຼ"]) ("}" . "/") - ("~" . "(1l(B") - ("\\0" . "(1p(B") - ("\\1" . "(1q(B") - ("\\2" . "(1r(B") - ("\\3" . "(1s(B") - ("\\4" . "(1t(B") - ("\\5" . "(1u(B") - ("\\6" . "(1v(B") - ("\\7" . "(1w(B") - ("\\8" . "(1x(B") - ("\\9" . "(1y(B") + ("~" . "໌") + ("\\0" . "໐") + ("\\1" . "໑") + ("\\2" . "໒") + ("\\3" . "໓") + ("\\4" . "໔") + ("\\5" . "໕") + ("\\6" . "໖") + ("\\7" . "໗") + ("\\8" . "໘") + ("\\9" . "໙") ) "Alist of key sequences vs the corresponding Lao string to input. This variable is for the input method \"lao\". @@ -155,7 +155,7 @@ you need to re-load it to properly re-initialize related alists.") ;; Temporary variable to initialize lao-consonant-key-alist, etc. (defconst lao-key-alist-vector (let ((tail lao-key-alist) - consonant-key-alist semivowel-key-alist vowel-key-alist + consonant-key-alist semivowel-key-alist vowel-key-alist voweltone-key-alist tone-key-alist other-key-alist elt phonetic-type) (while tail @@ -178,7 +178,7 @@ you need to re-load it to properly re-initialize related alists.") (setq semivowel-key-alist (cons elt semivowel-key-alist))) (t (setq other-key-alist (cons elt other-key-alist))))) - (vector consonant-key-alist semivowel-key-alist vowel-key-alist + (vector consonant-key-alist semivowel-key-alist vowel-key-alist voweltone-key-alist tone-key-alist other-key-alist))) (defconst lao-consonant-key-alist (aref lao-key-alist-vector 0)) @@ -192,7 +192,7 @@ you need to re-load it to properly re-initialize related alists.") (makunbound 'lao-key-alist-vector) (quail-define-package - "lao" "Lao" "(1E(B" t + "lao" "Lao" "ລ" t "Lao input method simulating Lao keyboard layout based on Thai TIS620" nil t t t t nil nil nil 'quail-lao-update-translation nil t) |