1 ;;; lrt.el --- Quail package for inputting Lao characters by LRT method -*-coding: iso-2022-7bit;-*-
3 ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007
4 ;; Free Software Foundation, Inc.
5 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
7 ;; National Institute of Advanced Industrial Science and Technology (AIST)
8 ;; Registration Number H14PRO021
10 ;; Keywords: multilingual, input method, Lao, LRT.
12 ;; This file is part of GNU Emacs.
14 ;; GNU Emacs is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by
16 ;; the Free Software Foundation; either version 2, or (at your option)
19 ;; GNU Emacs is distributed in the hope that it will be useful,
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 ;; GNU General Public License for more details.
24 ;; You should have received a copy of the GNU General Public License
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
27 ;; Boston, MA 02110-1301, USA.
36 ;; LRT (Lao Roman Transcription) input method accepts the following
38 ;; consonant [+ semi-vowel-sign-lo ] + vowel [+ maa-sakod ] [+ tone-mark ]
40 (defun quail-lao-update-translation (control-flag)
41 (if (integerp control-flag
)
42 ;; Non-composable character typed.
43 (setq quail-current-str
44 (buffer-substring (overlay-start quail-overlay
)
45 (overlay-end quail-overlay
))
48 (substring quail-current-key control-flag
)))
49 (let ((lao-str (lao-transcribe-roman-to-lao-string quail-current-key
)))
50 (if (> (aref lao-str
0) 255)
51 (setq quail-current-str lao-str
)
53 (setq quail-current-str quail-current-key
)))))
58 "lao-lrt" "Lao" "\e(1E\e(BR" t
59 "Lao input method using LRT (Lao Roman Transcription).
60 `\\' (backslash) + number-key => \e(1p\e(B,\e(1q\e(B,\e(1r\e(B,... LAO DIGIT ZERO, ONE, TWO, ...
61 `\\' (backslash) + `\\' => \e(1f\e(B LAO KO LA (REPETITION)
62 `\\' (backslash) + `$' => \e(1O\e(B LAO ELLIPSIS
64 nil
'forget-last-selection
'deterministic
'kbd-translate
'show-layout
65 nil nil nil
'quail-lao-update-translation nil t
)
67 ;; LRT (Lao Roman Transcription) input method accepts the following
69 ;; consonant [ semi-vowel-sign-lo ] vowel [ maa-sakod ] [ tone-mark ]
73 '((base-state (lao-transcription-consonant-alist . sv-state
)
74 lao-transcription-vowel-alist
75 lao-transcription-tone-alist
)
76 (sv-state (lao-transcription-semi-vowel-alist . v-state
)
77 (lao-transcription-vowel-alist . mt-state
))
78 (v-state (lao-transcription-vowel-alist . mt-state
))
79 (mt-state (lao-transcription-maa-sakod-alist . t-state
)
80 lao-transcription-tone-alist
)
81 (t-state lao-transcription-tone-alist
))))
83 ;;; arch-tag: f65e4038-e187-4906-997b-d2de7ed813d2