Mercurial > emacs
annotate leim/quail/indian.el @ 81356:d8a432d98404
* os.texi (Init File): Document user-emacs-directory.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Wed, 13 Jun 2007 00:08:54 +0000 |
parents | f5f322eb227f |
children | 2904684117d6 95d0cdf160ea |
rev | line source |
---|---|
42293 | 1 ;;; indian.el --- Quail packages for inputting Indian |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
2 |
75253
f5f322eb227f
Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents:
70124
diff
changeset
|
3 ;; Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007 |
f5f322eb227f
Update copyright for years from Emacs 21 to present.
Glenn Morris <rgm@gnu.org>
parents:
70124
diff
changeset
|
4 ;; Free Software Foundation, Inc. |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
5 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
6 ;; Author: KAWABATA, Taichi <kawabata@m17n.org> |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
7 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
8 ;; Keywords: multilingual, input method, Indian, Devanagari |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
9 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
10 ;; This file is part of GNU Emacs. |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
11 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
13 ;; it under the terms of the GNU General Public License as published by |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
14 ;; the Free Software Foundation; either version 2, or (at your option) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
15 ;; any later version. |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
16 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
17 ;; GNU Emacs is distributed in the hope that it will be useful, |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
20 ;; GNU General Public License for more details. |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
21 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
22 ;; You should have received a copy of the GNU General Public License |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64083 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
26 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
27 ;;; Commentary: |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
28 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
29 ;; History: |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
30 |
42038 | 31 ;; 2000.12.12 |
32 ;; Totally re-written from devanagari.el to handle multiple Indian Scripts. | |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
33 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
34 ;;; Code: |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
35 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
36 (require 'quail) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
37 (require 'devan-util) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
38 (require 'ind-util) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
39 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
40 (defun quail-indian-preceding-char-position (position) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
41 "Return the position of preceding composite character." |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
42 (let (prec-composed) |
42038 | 43 (if (char-valid-p (char-before position)) ;; range o.k. |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
44 (if (setq prec-composed (find-composition (1- position))) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
45 (car prec-composed) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
46 (1- position)) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
47 nil))) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
48 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
49 (defvar quail-indian-update-preceding-char nil) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
50 (make-variable-frame-local 'quail-indian-update-preceding-char) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
51 |
52083
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
52 ;; Input value :: |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
53 ;; CONTROL-FLAG is integer `n' |
42038 | 54 ;; quail-current-key :: keyboard input. |
52083
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
55 ;; Only first `n' can be translated. |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
56 ;; quail-current-str :: corresonding string. |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
57 ;; jobs :: (1) put last (len-n) char to unrread-command-event. |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
58 ;; (2) put translated string to quail-current-str. |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
59 ;; |
52083
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
60 ;; CONTROL-FLAG is t (terminate) or nil (proceed the translation) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
61 ;; quail-current-key :: keyboard input. |
52083
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
62 ;; quail-current-str :: corresponding string. |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
63 ;; jobs :: (1) put modified translated string to quail-current-str. |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
64 ;; |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
65 ;; When non-nil value is returned from quail-translation-update-function, |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
66 ;; the quail-current-str is split to characters and put into event queue, |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
67 ;; with `compose-last-char' event with composition info at the end. |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
68 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
69 (defun quail-indian-update-translation (control-flag) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
70 ;; make quail-current-str string when possible. |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
71 (if (char-valid-p quail-current-str) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
72 (setq quail-current-str (char-to-string quail-current-str))) |
52083
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
73 ;(message "\n input control-flag=%s, str=%s, key=%s q-ind-upd-prec-char=%s" |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
74 ; control-flag quail-current-str quail-current-key |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
75 ; quail-indian-update-preceding-char) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
76 ;; reset quail-indian-update-preceding-char if it's initial. |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
77 (if (= (overlay-start quail-overlay) (overlay-end quail-overlay)) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
78 (setq quail-indian-update-preceding-char nil)) |
52083
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
79 ;; Check the preceding character of the quail region. If the |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
80 ;; preceding character can be composed with quail-current-str, then |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
81 ;; grab that preceding character into the quail-current-str and |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
82 ;; remove that char from the region. |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
83 (let* (prec-char-position composition-regexp |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
84 prec-char-str candidate-str match-pos match-end) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
85 (when (and quail-current-str |
52083
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
86 (null quail-indian-update-preceding-char) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
87 (null input-method-use-echo-area) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
88 (null input-method-exit-on-first-char) |
42038 | 89 (setq prec-char-position |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
90 (quail-indian-preceding-char-position |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
91 (overlay-start quail-overlay))) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
92 (setq composition-regexp |
42038 | 93 (if prec-char-position |
94 (caar (elt composition-function-table | |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
95 (char-after prec-char-position))))) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
96 (setq prec-char-str |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
97 (buffer-substring prec-char-position |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
98 (overlay-start quail-overlay)) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
99 candidate-str (concat prec-char-str quail-current-str) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
100 match-pos (string-match composition-regexp candidate-str) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
101 match-end (match-end 0)) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
102 (> match-end (length prec-char-str))) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
103 (setq quail-indian-update-preceding-char prec-char-str) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
104 (delete-region prec-char-position |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
105 (overlay-start quail-overlay)))) |
52083
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
106 (setq quail-current-str |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
107 (indian-compose-string |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
108 (concat quail-indian-update-preceding-char |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
109 quail-current-str))) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
110 (if (numberp control-flag) |
52083
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
111 (setq unread-command-events |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
112 (string-to-list |
52083
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
113 (substring quail-current-key control-flag)))) |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
114 (when control-flag |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
115 (setq quail-indian-update-preceding-char nil)) |
52083
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
116 ;(message "output control-flag=%s, str=%s, key=%s q-ind-upd-prec-char=%s" |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
117 ; control-flag quail-current-str quail-current-key |
f57cb35e417f
(quail-indian-update-translation): Adjusted the
Kenichi Handa <handa@m17n.org>
parents:
49708
diff
changeset
|
118 ; quail-indian-update-preceding-char) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
119 control-flag) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
120 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
121 ;;; |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
122 ;;; Input by transliteration |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
123 ;;; |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
124 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
125 (defun quail-define-indian-trans-package (hashtbls pkgname |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
126 lang title doc) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
127 (funcall 'quail-define-package pkgname lang title t doc |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
128 nil nil nil nil nil nil t nil |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
129 'quail-indian-update-translation) |
42038 | 130 (maphash |
42463
87a33bffaf3c
(quail-define-indian-trans-package): Unquote
Dave Love <fx@gnu.org>
parents:
42293
diff
changeset
|
131 (lambda (key val) |
87a33bffaf3c
(quail-define-indian-trans-package): Unquote
Dave Love <fx@gnu.org>
parents:
42293
diff
changeset
|
132 (quail-defrule key (if (= (length val) 1) |
87a33bffaf3c
(quail-define-indian-trans-package): Unquote
Dave Love <fx@gnu.org>
parents:
42293
diff
changeset
|
133 (string-to-char val) |
87a33bffaf3c
(quail-define-indian-trans-package): Unquote
Dave Love <fx@gnu.org>
parents:
42293
diff
changeset
|
134 (vector val)))) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
135 (cdr hashtbls))) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
136 |
44699
79db4c465ef6
Replace commented-out lines with a condition that is always false.
Eli Zaretskii <eliz@gnu.org>
parents:
42463
diff
changeset
|
137 ;; This needs to be seen by quail-update-leim-list-file, but cannot be |
79db4c465ef6
Replace commented-out lines with a condition that is always false.
Eli Zaretskii <eliz@gnu.org>
parents:
42463
diff
changeset
|
138 ;; commented out because quail-update-leim-list-file ignores |
79db4c465ef6
Replace commented-out lines with a condition that is always false.
Eli Zaretskii <eliz@gnu.org>
parents:
42463
diff
changeset
|
139 ;; commented-out lines. |
79db4c465ef6
Replace commented-out lines with a condition that is always false.
Eli Zaretskii <eliz@gnu.org>
parents:
42463
diff
changeset
|
140 (if nil |
79db4c465ef6
Replace commented-out lines with a condition that is always false.
Eli Zaretskii <eliz@gnu.org>
parents:
42463
diff
changeset
|
141 (quail-define-package "devanagari-itrans" "Devanagari" "DevIT" t "Devanagari ITRANS")) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
142 (quail-define-indian-trans-package |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
143 indian-dev-itrans-v5-hash "devanagari-itrans" "Devanagari" "DevIT" |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
144 "Devanagari transliteration by ITRANS method.") |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
145 |
44699
79db4c465ef6
Replace commented-out lines with a condition that is always false.
Eli Zaretskii <eliz@gnu.org>
parents:
42463
diff
changeset
|
146 (if nil |
79db4c465ef6
Replace commented-out lines with a condition that is always false.
Eli Zaretskii <eliz@gnu.org>
parents:
42463
diff
changeset
|
147 (quail-define-package "devanagari-kyoto-harvard" "Devanagari" "DevKH" t "Devanagari Kyoto-Harvard")) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
148 (quail-define-indian-trans-package |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
149 indian-dev-kyoto-harvard-hash |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
150 "devanagari-kyoto-harvard" "Devanagari" "DevKH" |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
151 "Devanagari transliteration by Kyoto-Harvard method.") |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
152 |
44699
79db4c465ef6
Replace commented-out lines with a condition that is always false.
Eli Zaretskii <eliz@gnu.org>
parents:
42463
diff
changeset
|
153 (if nil |
79db4c465ef6
Replace commented-out lines with a condition that is always false.
Eli Zaretskii <eliz@gnu.org>
parents:
42463
diff
changeset
|
154 (quail-define-package "devanagari-aiba" "Devanagari" "DevAB" t "Devanagari Aiba")) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
155 (quail-define-indian-trans-package |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
156 indian-dev-aiba-hash "devanagari-aiba" "Devanagari" "DevAB" |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
157 "Devanagari transliteration by Aiba-method.") |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
158 |
49708
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
159 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
160 (quail-define-package "punjabi-itrans" "Punjabi" "PnjIT" t "Punjabi ITRANS")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
161 (quail-define-indian-trans-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
162 indian-pnj-itrans-v5-hash "punjabi-itrans" "Punjabi" "PnjIT" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
163 "Punjabi transliteration by ITRANS method.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
164 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
165 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
166 (quail-define-package "gujarati-itrans" "Gujarati" "GjrIT" t "Gujarati ITRANS")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
167 (quail-define-indian-trans-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
168 indian-gjr-itrans-v5-hash "gujarati-itrans" "Gujarati" "GjrIT" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
169 "Gujarati transliteration by ITRANS method.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
170 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
171 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
172 (quail-define-package "oriya-itrans" "Oriya" "OriIT" t "Oriya ITRANS")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
173 (quail-define-indian-trans-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
174 indian-ori-itrans-v5-hash "oriya-itrans" "Oriya" "OriIT" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
175 "Oriya transliteration by ITRANS method.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
176 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
177 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
178 (quail-define-package "bengali-itrans" "Bengali" "BngIT" t "Bengali ITRANS")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
179 (quail-define-indian-trans-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
180 indian-bng-itrans-v5-hash "bengali-itrans" "Bengali" "BngIT" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
181 "Bengali transliteration by ITRANS method.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
182 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
183 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
184 (quail-define-package "assamese-itrans" "Assamese" "AsmIT" t "Assamese ITRANS")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
185 (quail-define-indian-trans-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
186 indian-asm-itrans-v5-hash "assamese-itrans" "Assamese" "AsmIT" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
187 "Assamese transliteration by ITRANS method.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
188 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
189 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
190 (quail-define-package "telugu-itrans" "Telugu" "TlgIT" t "Telugu ITRANS")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
191 (quail-define-indian-trans-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
192 indian-tlg-itrans-v5-hash "telugu-itrans" "Telugu" "TlgIT" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
193 "Telugu transliteration by ITRANS method.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
194 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
195 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
196 (quail-define-package "kannada-itrans" "Kannada" "KndIT" t "Kannada ITRANS")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
197 (quail-define-indian-trans-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
198 indian-knd-itrans-v5-hash "kannada-itrans" "Kannada" "KndIT" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
199 "Kannada transliteration by ITRANS method.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
200 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
201 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
202 (quail-define-package "malayalam-itrans" "Malayalam" "MlmIT" t "Malayalam ITRANS")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
203 (quail-define-indian-trans-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
204 indian-mlm-itrans-v5-hash "malayalam-itrans" "Malayalam" "MlmIT" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
205 "Malayalam transliteration by ITRANS method.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
206 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
207 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
208 (quail-define-package "tamil-itrans" "Tamil" "TmlIT" t "Tamil ITRANS")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
209 (quail-define-indian-trans-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
210 indian-tml-itrans-v5-hash "tamil-itrans" "Tamil" "TmlIT" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
211 "Tamil transliteration by ITRANS method.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
212 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
213 |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
214 ;;; |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
215 ;;; Input by Inscript |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
216 ;;; |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
217 |
42038 | 218 (defun quail-indian-flatten-list (lst) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
219 "Flatten the nested LIST so that there would be no innner list." |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
220 (if (listp lst) |
42038 | 221 (apply 'append (mapcar 'quail-indian-flatten-list lst)) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
222 (list lst))) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
223 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
224 (defun quail-define-inscript-package (char-table key-table pkgname lang title |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
225 docstring) |
42038 | 226 (setq char-table (quail-indian-flatten-list char-table)) |
227 (setq key-table (quail-indian-flatten-list key-table)) | |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
228 (funcall 'quail-define-package pkgname lang title nil docstring |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
229 nil nil nil nil nil nil nil nil |
42463
87a33bffaf3c
(quail-define-indian-trans-package): Unquote
Dave Love <fx@gnu.org>
parents:
42293
diff
changeset
|
230 'quail-indian-update-translation) |
87a33bffaf3c
(quail-define-indian-trans-package): Unquote
Dave Love <fx@gnu.org>
parents:
42293
diff
changeset
|
231 (dolist (key key-table) |
87a33bffaf3c
(quail-define-indian-trans-package): Unquote
Dave Love <fx@gnu.org>
parents:
42293
diff
changeset
|
232 (let ((val (pop char-table))) |
87a33bffaf3c
(quail-define-indian-trans-package): Unquote
Dave Love <fx@gnu.org>
parents:
42293
diff
changeset
|
233 (if (and key val) |
87a33bffaf3c
(quail-define-indian-trans-package): Unquote
Dave Love <fx@gnu.org>
parents:
42293
diff
changeset
|
234 (quail-defrule |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
235 (if (char-valid-p key) (char-to-string key) key) |
42463
87a33bffaf3c
(quail-define-indian-trans-package): Unquote
Dave Love <fx@gnu.org>
parents:
42293
diff
changeset
|
236 (if (stringp val) (vector val) val)))))) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
237 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
238 ;; |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
239 |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
240 (defvar inscript-dev-keytable |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
241 '( |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
242 (;; VOWELS (18) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
243 (?D nil) (?E ?e) (?F ?f) (?R ?r) (?G ?g) (?T ?t) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
244 (?+ ?=) ("F]" "f]") (?! ?@) (?Z ?z) (?S ?s) (?W ?w) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
245 (?| ?\\) (?~ ?`) (?A ?a) (?Q ?q) ("+]" "=]") ("R]" "r]")) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
246 (;; CONSONANTS (42) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
247 ?k ?K ?i ?I ?U ;; GRUTTALS |
42038 | 248 ?\; ?: ?p ?P ?} ;; PALATALS |
249 ?' ?\" ?\[ ?{ ?C ;; CEREBRALS | |
250 ?l ?L ?o ?O ?v ?V ;; DENTALS | |
251 ?h ?H ?y ?Y ?c ;; LABIALS | |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
252 ?/ ?j ?J ?n ?N "N]" ?b ;; SEMIVOWELS |
42038 | 253 ?M ?< ?m ?u ;; SIBILANTS |
254 "k]" "K]" "i]" "p]" "[]" "{]" "H]" "/]" ;; NUKTAS | |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
255 ?% ?&) |
42038 | 256 (;; Misc Symbols (7) |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
257 ?X ?x ?_ ">]" ?d "X]" ?>) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
258 (;; Digits |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
259 ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
260 (;; Inscripts |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
261 ?# ?$ ?^ ?* ?\]))) |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
262 |
44699
79db4c465ef6
Replace commented-out lines with a condition that is always false.
Eli Zaretskii <eliz@gnu.org>
parents:
42463
diff
changeset
|
263 (if nil |
79db4c465ef6
Replace commented-out lines with a condition that is always false.
Eli Zaretskii <eliz@gnu.org>
parents:
42463
diff
changeset
|
264 (quail-define-package "devanagari-inscript" "Devanagari" "DevIS" t "Devanagari keyboard Inscript")) |
42038 | 265 (quail-define-inscript-package |
41464
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
266 indian-dev-base-table inscript-dev-keytable |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
267 "devanagari-inscript" "Devanagari" "DevIS" |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
268 "Devanagari keyboard Inscript.") |
93957ea66b86
Renamed from devanagari.el, and completely re-written.
Richard M. Stallman <rms@gnu.org>
parents:
diff
changeset
|
269 |
49708
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
270 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
271 (quail-define-package "punjabi-inscript" "Punjabi" "PnjIS" t "Punjabi keyboard Inscript")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
272 (quail-define-inscript-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
273 indian-pnj-base-table inscript-dev-keytable |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
274 "punjabi-inscript" "Punjabi" "PnjIS" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
275 "Punjabi keyboard Inscript.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
276 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
277 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
278 (quail-define-package "gujarati-inscript" "Gujarati" "GjrIS" t "Gujarati keyboard Inscript")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
279 (quail-define-inscript-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
280 indian-gjr-base-table inscript-dev-keytable |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
281 "gujarati-inscript" "Gujarati" "GjrIS" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
282 "Gujarati keyboard Inscript.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
283 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
284 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
285 (quail-define-package "oriya-inscript" "Oriya" "OriIS" t "Oriya keyboard Inscript")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
286 (quail-define-inscript-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
287 indian-ori-base-table inscript-dev-keytable |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
288 "oriya-inscript" "Oriya" "OriIS" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
289 "Oriya keyboard Inscript.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
290 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
291 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
292 (quail-define-package "bengali-inscript" "Bengali" "BngIS" t "Bengali keyboard Inscript")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
293 (quail-define-inscript-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
294 indian-bng-base-table inscript-dev-keytable |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
295 "bengali-inscript" "Bengali" "BngIS" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
296 "Bengali keyboard Inscript.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
297 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
298 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
299 (quail-define-package "assamese-inscript" "Assamese" "AsmIS" t "Assamese keyboard Inscript")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
300 (quail-define-inscript-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
301 indian-asm-base-table inscript-dev-keytable |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
302 "assamese-inscript" "Assamese" "AsmIS" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
303 "Assamese keyboard Inscript.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
304 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
305 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
306 (quail-define-package "telugu-inscript" "Telugu" "TlgIS" t "Telugu keyboard Inscript")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
307 (quail-define-inscript-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
308 indian-dev-base-table inscript-dev-keytable |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
309 "telugu-inscript" "Telugu" "TlgIS" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
310 "Telugu keyboard Inscript.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
311 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
312 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
313 (quail-define-package "kannada-inscript" "Kannada" "KndIS" t "Kannada keyboard Inscript")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
314 (quail-define-inscript-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
315 indian-knd-base-table inscript-dev-keytable |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
316 "kannada-inscript" "Kannada" "KndIS" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
317 "Kannada keyboard Inscript.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
318 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
319 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
320 (quail-define-package "malayalam-inscript" "Malayalam" "MlmIS" t "Malayalam keyboard Inscript")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
321 (quail-define-inscript-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
322 indian-mlm-base-table inscript-dev-keytable |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
323 "malayalam-inscript" "Malayalam" "MlmIS" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
324 "Malayalam keyboard Inscript.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
325 |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
326 (if nil |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
327 (quail-define-package "tamil-inscript" "Tamil" "TmlIS" t "Tamil keyboard Inscript")) |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
328 (quail-define-inscript-package |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
329 indian-tml-base-table inscript-dev-keytable |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
330 "tamil-inscript" "Tamil" "TmlIS" |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
331 "Tamil keyboard Inscript.") |
9155d2fdd73c
(punjabi-itrans, gujarati-itrans, oriya-itrans)
Kenichi Handa <handa@m17n.org>
parents:
44699
diff
changeset
|
332 |
52401 | 333 ;;; arch-tag: 9e5a621e-f7d5-4fce-9543-0a51b407c940 |
42293 | 334 ;;; indian.el ends here |