Mercurial > hg > xemacs-beta
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 |