comparison lisp/mule/tibetan.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 ;;; tibetan.el --- Support for Tibetan language -*- coding: iso-2022-7bit; -*- 1 ;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*-
2 2
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Copyright (C) 2002 Ben Wing.
4 ;; Licensed to the Free Software Foundation. 5 ;; Licensed to the Free Software Foundation.
5 6
6 ;; Keywords: multilingual, Tibetan 7 ;; Keywords: multilingual, Tibetan
7 8
8 ;; This file is part of XEmacs. 9 ;; This file is part of XEmacs.
20 ;; 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
21 ;; 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
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA. 24 ;; 02111-1307, USA.
24 25
25 ;;; Synched up with: Emacs 21.0.103 (language/tibetan.el). 26 ;;; Synched up with: Emacs 21.1 (language/tibetan.el).
26 27
27 ;; Author: Toru TOMABECHI, <Toru.Tomabechi@orient.unil.ch> 28 ;; Author: Toru TOMABECHI, <Toru.Tomabechi@orient.unil.ch>
28 29
29 ;; Created: Feb. 17. 1997 30 ;; Created: Feb. 17. 1997
30 31
31 ;; History: 32 ;; History:
32 ;; 1997.03.13 Modification for special signs and punctuations. 33 ;; 1997.03.13 Modification for special signs and punctuations.
34
35 ;;; Commentary:
33 36
34 ;;; Code: 37 ;;; Code:
35 38
36 ;;; Tibetan Character set. 39 ;;; Tibetan Character set.
37 ;;; \x2130 -- \x234a is a subset of Unicode v.2 \x0f00 - \x0fb9 40 ;;; \x2130 -- \x234a is a subset of Unicode v.2 \x0f00 - \x0fb9
79 ;;;2550 $(7%P(B $(7%Q(B $(7%R(B $(7%S(B $(7%T(B $(7%U(B $(7%V(B $(7%W(B $(7%X(B $(7%Y(B $(7%Z(B $(7%[(B $(7%\(B $(7%](B $(7%^(B $(7%_(B ; 82 ;;;2550 $(7%P(B $(7%Q(B $(7%R(B $(7%S(B $(7%T(B $(7%U(B $(7%V(B $(7%W(B $(7%X(B $(7%Y(B $(7%Z(B $(7%[(B $(7%\(B $(7%](B $(7%^(B $(7%_(B ;
80 ;;;2560 $(7%`(B $(7%a(B $(7%b(B $(7%c(B $(7%d(B $(7%e(B $(7%f(B $(7%g(B $(7%h(B $(7%i(B $(7%j(B $(7%k(B $(7%l(B $(7%m(B $(7%n(B $(7%o(B ; 83 ;;;2560 $(7%`(B $(7%a(B $(7%b(B $(7%c(B $(7%d(B $(7%e(B $(7%f(B $(7%g(B $(7%h(B $(7%i(B $(7%j(B $(7%k(B $(7%l(B $(7%m(B $(7%n(B $(7%o(B ;
81 ;;;2570 $(7%p(B $(7%q(B $(7%r(B $(7%s(B $(7%t(B $(7%u(B $(7%v(B $(7%w(B $(7%x(B $(7%y(B $(7%z(B $(7%{(B $(7%|(B $(7%}(B $(7%~(B // ; 84 ;;;2570 $(7%p(B $(7%q(B $(7%r(B $(7%s(B $(7%t(B $(7%u(B $(7%v(B $(7%w(B $(7%x(B $(7%y(B $(7%z(B $(7%{(B $(7%|(B $(7%}(B $(7%~(B // ;
82 ;;; 85 ;;;
83 86
87 (make-charset 'tibetan-1-column "Tibetan 1 column glyph"
88 '(dimension
89 2
90 registry "MuleTibetan-1"
91 chars 94
92 columns 1
93 direction l2r
94 final ?8
95 graphic 0
96 short-name "Tibetan 1-col"
97 long-name "Tibetan 1 column"
98 ))
99
100 ;; Tibetan script.
101 (make-charset 'tibetan "Tibetan characters"
102 '(dimension
103 2
104 registry "MuleTibetan-2"
105 chars 94
106 columns 2
107 direction l2r
108 final ?7
109 graphic 0
110 short-name "Tibetan 2-col"
111 long-name "Tibetan 2 column"
112 ))
84 113
85 ; (make-coding-system 114 ; (make-coding-system
86 ; 'tibetan-iso-8bit 2 ?Q 115 ; 'tibetan-iso-8bit 2 ?Q
87 ; "8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)" 116 ; "8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)"
88 ; '(ascii tibetan nil nil 117 ; '(ascii tibetan nil nil
127 (defconst tibetan-composable-pattern 156 (defconst tibetan-composable-pattern
128 "[$(7"!(B-$(7"J"K(B][$(7#!(B-$(7#J#K#L#M(B]*[$(7"Q"R"S(B-$(7"^"a"b"e(B]*[$(7"_"c"d"g(B-$(7"l!I!e!g(B]*" 157 "[$(7"!(B-$(7"J"K(B][$(7#!(B-$(7#J#K#L#M(B]*[$(7"Q"R"S(B-$(7"^"a"b"e(B]*[$(7"_"c"d"g(B-$(7"l!I!e!g(B]*"
129 "Regexp matching a composable sequence of Tibetan characters.") 158 "Regexp matching a composable sequence of Tibetan characters.")
130 159
131 ;; Register a function to compose Tibetan characters. 160 ;; Register a function to compose Tibetan characters.
132 (aset composition-function-table (make-char 'tibetan) 161 (put-char-table 'tibetan
133 (list (cons tibetan-composable-pattern 'tibetan-composition-function))) 162 (list (cons tibetan-composable-pattern
163 'tibetan-composition-function))
164 composition-function-table)
134 165
135 ;;; 166 ;;;
136 ;;; Definitions of conversion data. 167 ;;; Definitions of conversion data.
137 ;;; 168 ;;;
138 169
635 (defvar tibetan-decomposed nil) 666 (defvar tibetan-decomposed nil)
636 (defvar tibetan-decomposed-temp nil) 667 (defvar tibetan-decomposed-temp nil)
637 668
638 (provide 'tibetan) 669 (provide 'tibetan)
639 670
640 ;;; language/tibetan.el ends here 671 ;;; tibetan.el ends here