annotate leim/quail/indian.el @ 82513:250bf6af6540

(backup-buffer-copy): Check backup directory is writable, to avoid infloop deleting old backup.
author Glenn Morris <rgm@gnu.org>
date Wed, 22 Aug 2007 03:49:15 +0000
parents 2904684117d6
children 348da3bab27a f55f9811f5d7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
42293
f31eab2cf8ae Fix headers.
Pavel Janík <Pavel@Janik.cz>
parents: 42038
diff changeset
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
78275
2904684117d6 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 75253
diff changeset
14 ;; the Free Software Foundation; either version 3, or (at your option)
41464
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
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23a17af379b1 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 52401
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
31 ;; 2000.12.12
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
93 (if prec-char-position
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
226 (setq char-table (quail-indian-flatten-list char-table))
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
248 ?\; ?: ?p ?P ?} ;; PALATALS
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
249 ?' ?\" ?\[ ?{ ?C ;; CEREBRALS
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
250 ?l ?L ?o ?O ?v ?V ;; DENTALS
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
253 ?M ?< ?m ?u ;; SIBILANTS
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
69c2ba4ebc59 Don't require cl.
Dave Love <fx@gnu.org>
parents: 41464
diff changeset
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
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52083
diff changeset
333 ;;; arch-tag: 9e5a621e-f7d5-4fce-9543-0a51b407c940
42293
f31eab2cf8ae Fix headers.
Pavel Janík <Pavel@Janik.cz>
parents: 42038
diff changeset
334 ;;; indian.el ends here