Mercurial > emacs
annotate leim/quail/lrt.el @ 86470:c91f81134a74
(calc-set-language, calc-edit-finish)
(calc-edit-cancel, calc-do-quick-calc, calc-do-calc-eval)
(calc-do-keypad, calcFunc-unixtime, math-parse-date)
(math-lessp, calc-embedded-finish-command)
(calc-embedded-select-buffer, calc-embedded-mode-line-change)
(calc-push-list-in-macro, calc-replace-selections)
(calc-record-list, calc-normalize-fancy, calc-do-handle-whys)
(calc-top-selected, calc-sel-error, calc-pop-stack-in-macro)
(calc-embedded-stack-change, calc-refresh-evaltos)
(calc-do-refresh, calc-binary-op-fancy, calc-unary-op-fancy)
(calc-delete-selection, calc-alg-digit-entry, calc-alg-entry)
(calc-dots, calc-temp-minibuffer-message, math-read-radix-digit)
(calc-digit-dots, math-normalize-fancy, math-normalize-nonstandard)
(math-recompile-eval-rules, math-apply-rewrites, calc-record-why)
(math-dimension-error, calc-incomplete-error, math-float-fancy)
(math-neg-fancy, math-zerop, calc-add-fractions)
(math-add-objects-fancy, math-add-symb-fancy, math-mul-zero)
(calc-mul-fractions, math-mul-objects-fancy, math-mul-symb-fancy)
(math-reject-arg, math-div-by-zero, math-div-zero, math-make-frac)
(calc-div-fractions, math-div-objects-fancy, math-div-symb-fancy)
(math-compose-expr, math-comp-width, math-composition-to-string)
(math-stack-value-offset-fancy, math-format-flat-expr-fancy)
(math-adjust-fraction, math-format-binary, math-format-radix)
(math-group-float, math-mod, math-format-number-fancy)
(math-format-bignum-fancy, math-read-number-fancy)
(calc-do-grab-region, calc-do-grab-rectangle, calc-do-embedded)
(calc-do-embedded-activate, math-do-defmath)
(calc-load-everything): Declare as functions.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Tue, 27 Nov 2007 04:02:56 +0000 (2007-11-27) |
parents | 126deea128b3 |
children | 3ca83a726835 f55f9811f5d7 |
rev | line source |
---|---|
40710 | 1 ;;; lrt.el --- Quail package for inputting Lao characters by LRT method -*-coding: iso-2022-7bit;-*- |
18673 | 2 |
75253
f5f322eb227f
Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents:
74605
diff
changeset
|
3 ;; Copyright (C) 1998, 2001, 2002, 2003, 2004, 2005, 2006, 2007 |
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, |
f5f322eb227f
Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents:
74605
diff
changeset
|
6 ;; 2006, 2007 |
67657 | 7 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 ;; Registration Number H14PRO021 | |
18673 | 9 |
10 ;; Keywords: multilingual, input method, Lao, LRT. | |
11 | |
12 ;; This file is part of GNU Emacs. | |
13 | |
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 | |
78308
126deea128b3
Restore comma mistakenly removed in last change.
Glenn Morris <rgm@gnu.org>
parents:
78303
diff
changeset
|
16 ;; the Free Software Foundation; either version 3, or (at your option) |
18673 | 17 ;; any later version. |
18 | |
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. | |
23 | |
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 | |
64083 | 26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
27 ;; Boston, MA 02110-1301, USA. | |
18673 | 28 |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
26881
diff
changeset
|
29 ;;; Commentary: |
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
26881
diff
changeset
|
30 |
18673 | 31 ;;; Code: |
32 | |
33 (require 'quail) | |
34 (require 'lao-util) | |
35 | |
36 ;; LRT (Lao Roman Transcription) input method accepts the following | |
37 ;; key sequence: | |
38 ;; consonant [+ semi-vowel-sign-lo ] + vowel [+ maa-sakod ] [+ tone-mark ] | |
39 | |
26881
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
40 (defun quail-lao-update-translation (control-flag) |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
41 (if (integerp control-flag) |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
42 ;; Non-composable character typed. |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
43 (setq quail-current-str |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
44 (buffer-substring (overlay-start quail-overlay) |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
45 (overlay-end quail-overlay)) |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
46 unread-command-events |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
47 (string-to-list |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
48 (substring quail-current-key control-flag))) |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
49 (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
|
50 (if (> (aref lao-str 0) 255) |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
51 (setq quail-current-str lao-str) |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
52 (or quail-current-str |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
53 (setq quail-current-str quail-current-key))))) |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
54 control-flag) |
18673 | 55 |
56 | |
57 (quail-define-package | |
19260
2d94069b1e81
Change title string of input method "lao-lrt".
Kenichi Handa <handa@m17n.org>
parents:
18833
diff
changeset
|
58 "lao-lrt" "Lao" "(1E(BR" t |
19373
314fa41f0155
(lrt-vowel-table): Some elements corrected.
Kenichi Handa <handa@m17n.org>
parents:
19260
diff
changeset
|
59 "Lao input method using LRT (Lao Roman Transcription). |
314fa41f0155
(lrt-vowel-table): Some elements corrected.
Kenichi Handa <handa@m17n.org>
parents:
19260
diff
changeset
|
60 `\\' (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
|
61 `\\' (backslash) + `\\' => (1f(B LAO KO LA (REPETITION) |
314fa41f0155
(lrt-vowel-table): Some elements corrected.
Kenichi Handa <handa@m17n.org>
parents:
19260
diff
changeset
|
62 `\\' (backslash) + `$' => (1O(B LAO ELLIPSIS |
314fa41f0155
(lrt-vowel-table): Some elements corrected.
Kenichi Handa <handa@m17n.org>
parents:
19260
diff
changeset
|
63 " |
26881
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
64 nil 'forget-last-selection 'deterministic 'kbd-translate 'show-layout |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
65 nil nil nil 'quail-lao-update-translation nil t) |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
66 |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
67 ;; LRT (Lao Roman Transcription) input method accepts the following |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
68 ;; key sequence: |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
69 ;; consonant [ semi-vowel-sign-lo ] vowel [ maa-sakod ] [ tone-mark ] |
18673 | 70 |
26881
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
71 (quail-install-map |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
72 (quail-map-from-table |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
73 '((base-state (lao-transcription-consonant-alist . sv-state) |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
74 lao-transcription-vowel-alist |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
75 lao-transcription-tone-alist) |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
40710
diff
changeset
|
76 (sv-state (lao-transcription-semi-vowel-alist . v-state) |
26881
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
77 (lao-transcription-vowel-alist . mt-state)) |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
78 (v-state (lao-transcription-vowel-alist . mt-state)) |
49600
23a1cea22d13
Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
40710
diff
changeset
|
79 (mt-state (lao-transcription-maa-sakod-alist . t-state) |
26881
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
80 lao-transcription-tone-alist) |
cd1cb9bf30e1
Rewritten for new composition.
Kenichi Handa <handa@m17n.org>
parents:
21384
diff
changeset
|
81 (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
|
82 |
52401 | 83 ;;; 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
|
84 ;;; lrt.el ends here |