annotate leim/quail/lrt.el @ 100995:89695da9e88c

(url-cid-gnus): Fix typo in header name.
author Glenn Morris <rgm@gnu.org>
date Fri, 09 Jan 2009 03:19:39 +0000
parents 0d2e4142fb60
children 1d1d5d9bd884
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
40710
890f548046c1 Add coding tag.
Dave Love <fx@gnu.org>
parents: 38453
diff changeset
1 ;;; lrt.el --- Quail package for inputting Lao characters by LRT method -*-coding: iso-2022-7bit;-*-
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2
100963
0d2e4142fb60 Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 94710
diff changeset
3 ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
75253
f5f322eb227f Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents: 74605
diff changeset
4 ;; Free Software Foundation, Inc.
f5f322eb227f Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents: 74605
diff changeset
5 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
100963
0d2e4142fb60 Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 94710
diff changeset
6 ;; 2006, 2007, 2008, 2009
67657
b94a4bf1aca6 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 64083
diff changeset
7 ;; National Institute of Advanced Industrial Science and Technology (AIST)
b94a4bf1aca6 Copyright fixed
Kenichi Handa <handa@m17n.org>
parents: 64083
diff changeset
8 ;; Registration Number H14PRO021
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 ;; Keywords: multilingual, input method, Lao, LRT.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12 ;; This file is part of GNU Emacs.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13
94710
4f1fd208c354 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79727
diff changeset
14 ;; GNU Emacs is free software: you can redistribute it and/or modify
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 ;; it under the terms of the GNU General Public License as published by
94710
4f1fd208c354 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79727
diff changeset
16 ;; the Free Software Foundation, either version 3 of the License, or
4f1fd208c354 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79727
diff changeset
17 ;; (at your option) any later version.
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful,
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 ;; GNU General Public License for more details.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24 ;; You should have received a copy of the GNU General Public License
94710
4f1fd208c354 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79727
diff changeset
25 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26
38453
519983161a46 Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 26881
diff changeset
27 ;;; Commentary:
519983161a46 Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 26881
diff changeset
28
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 ;;; Code:
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31 (require 'quail)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 (require 'lao-util)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 ;; LRT (Lao Roman Transcription) input method accepts the following
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 ;; key sequence:
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 ;; consonant [+ semi-vowel-sign-lo ] + vowel [+ maa-sakod ] [+ tone-mark ]
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37
26881
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
38 (defun quail-lao-update-translation (control-flag)
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
39 (if (integerp control-flag)
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
40 ;; Non-composable character typed.
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
41 (setq quail-current-str
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
42 (buffer-substring (overlay-start quail-overlay)
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
43 (overlay-end quail-overlay))
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
44 unread-command-events
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
45 (string-to-list
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
46 (substring quail-current-key control-flag)))
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
47 (let ((lao-str (lao-transcribe-roman-to-lao-string quail-current-key)))
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
48 (if (> (aref lao-str 0) 255)
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
49 (setq quail-current-str lao-str)
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
50 (or quail-current-str
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
51 (setq quail-current-str quail-current-key)))))
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
52 control-flag)
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 (quail-define-package
19260
2d94069b1e81 Change title string of input method "lao-lrt".
Kenichi Handa <handa@m17n.org>
parents: 18833
diff changeset
56 "lao-lrt" "Lao" "(1E(BR" t
19373
314fa41f0155 (lrt-vowel-table): Some elements corrected.
Kenichi Handa <handa@m17n.org>
parents: 19260
diff changeset
57 "Lao input method using LRT (Lao Roman Transcription).
314fa41f0155 (lrt-vowel-table): Some elements corrected.
Kenichi Handa <handa@m17n.org>
parents: 19260
diff changeset
58 `\\' (backslash) + number-key => (1p(B,(1q(B,(1r(B,... LAO DIGIT ZERO, ONE, TWO, ...
314fa41f0155 (lrt-vowel-table): Some elements corrected.
Kenichi Handa <handa@m17n.org>
parents: 19260
diff changeset
59 `\\' (backslash) + `\\' => (1f(B LAO KO LA (REPETITION)
314fa41f0155 (lrt-vowel-table): Some elements corrected.
Kenichi Handa <handa@m17n.org>
parents: 19260
diff changeset
60 `\\' (backslash) + `$' => (1O(B LAO ELLIPSIS
314fa41f0155 (lrt-vowel-table): Some elements corrected.
Kenichi Handa <handa@m17n.org>
parents: 19260
diff changeset
61 "
26881
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
62 nil 'forget-last-selection 'deterministic 'kbd-translate 'show-layout
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
63 nil nil nil 'quail-lao-update-translation nil t)
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
64
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
65 ;; LRT (Lao Roman Transcription) input method accepts the following
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
66 ;; key sequence:
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
67 ;; consonant [ semi-vowel-sign-lo ] vowel [ maa-sakod ] [ tone-mark ]
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68
26881
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
69 (quail-install-map
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
70 (quail-map-from-table
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
71 '((base-state (lao-transcription-consonant-alist . sv-state)
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
72 lao-transcription-vowel-alist
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
73 lao-transcription-tone-alist)
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 40710
diff changeset
74 (sv-state (lao-transcription-semi-vowel-alist . v-state)
26881
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
75 (lao-transcription-vowel-alist . mt-state))
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
76 (v-state (lao-transcription-vowel-alist . mt-state))
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 40710
diff changeset
77 (mt-state (lao-transcription-maa-sakod-alist . t-state)
26881
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
78 lao-transcription-tone-alist)
cd1cb9bf30e1 Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents: 21384
diff changeset
79 (t-state lao-transcription-tone-alist))))
19260
2d94069b1e81 Change title string of input method "lao-lrt".
Kenichi Handa <handa@m17n.org>
parents: 18833
diff changeset
80
94710
4f1fd208c354 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 79727
diff changeset
81 ;; arch-tag: f65e4038-e187-4906-997b-d2de7ed813d2
38453
519983161a46 Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 26881
diff changeset
82 ;;; lrt.el ends here