comparison lisp/mule/indian.el @ 778:2923009caf47

[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 943eaba38521
children 98af8a976fc3
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
1 ;;; indian.el --- Support for Indian Languages -*- coding: iso-2022-7bit; -*- 1 ;;; indian.el --- support for Indian Languages -*- coding: iso-2022-7bit; -*-
2 2
3 ;; Copyright (C) 1995 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
4 4
5 ;; Author: KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp> 5 ;; Author: KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
6 6
21 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the Free 22 ;; along with XEmacs; see the file COPYING. If not, write to the Free
23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
24 ;; 02111-1307, USA. 24 ;; 02111-1307, USA.
25 25
26 ;;; Synched up with: Emacs 21.0.103 (language/indian.el). 26 ;;; Synched up with: Emacs 21.1 (language/indian.el).
27 27
28 ;;; Commentary: 28 ;;; Commentary:
29 29
30 ;; History: 30 ;; History:
31 ;; 1996.10.18 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp> 31 ;; 1996.10.18 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
88 ;;; ITRANS 88 ;;; ITRANS
89 ;; 89 ;;
90 ;; ITRANS is one of the most popular method to exchange indian scripts 90 ;; ITRANS is one of the most popular method to exchange indian scripts
91 ;; electronically. Here is the table to convert between ITRANS code and 91 ;; electronically. Here is the table to convert between ITRANS code and
92 ;; IS 13194 code. 92 ;; IS 13194 code.
93
94 ;; Indian scripts. Symbolic charset for data exchange. Glyphs are
95 ;; not assigned. They are automatically converted to each Indian
96 ;; script which IS-13194 supports.
97
98 (make-charset 'indian-is13194
99 "Generic Indian charset for data exchange with IS 13194"
100 '(dimension
101 1
102 registry "IS13194-Devanagari"
103 chars 94
104 columns 2
105 direction l2r
106 final ?5
107 graphic 1
108 short-name "IS 13194"
109 long-name "Indian IS 13194"
110 ))
111
112 ;; Actual Glyph for 1-column width.
113 (make-charset 'indian-1-column
114 "Indian charset for 2-column width glyphs"
115 '(dimension
116 2
117 registry "MuleIndian-1"
118 chars 94
119 columns 1
120 direction l2r
121 final ?6
122 graphic 0
123 short-name "Indian 1-col"
124 long-name "Indian 1 Column"
125 ))
126
127 ;; Actual Glyph for 2-column width.
128 (make-charset 'indian-2-column
129 "Indian charset for 2-column width glyphs"
130 '(dimension
131 2
132 registry "MuleIndian-2"
133 chars 94
134 columns 2
135 direction l2r
136 final ?5
137 graphic 0
138 short-name "Indian 2-col"
139 long-name "Indian 2 Column"
140 ))
93 141
94 (defvar indian-itrans-consonant-alist 142 (defvar indian-itrans-consonant-alist
95 '( 143 '(
96 ("k" . "(53(B") 144 ("k" . "(53(B")
97 ("kh" . "(54(B") 145 ("kh" . "(54(B")