comparison lisp/mule/thai.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 75469840109b 308d34e9f07d
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
1 ;;; thai.el --- Support for Thai -*- coding: iso-2022-7bit; -*- 1 ;;; thai.el --- support for Thai -*- coding: iso-2022-7bit; -*-
2 2
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 5
6 ;; Keywords: multilingual, Thai 6 ;; Keywords: multilingual, Thai
20 ;; You should have received a copy of the GNU General Public License 20 ;; 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 21 ;; along with XEmacs; see the file COPYING. If not, write to the Free
22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 22 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
23 ;; 02111-1307, USA. 23 ;; 02111-1307, USA.
24 24
25 ;;; Synched up with: Emacs 21.0.103 (language/thai.el). 25 ;;; Synched up with: Emacs 21.1 (language/thai.el).
26 26
27 ;;; Commentary: 27 ;;; Commentary:
28 28
29 ;; For Thai, the character set TIS620 is supported. 29 ;; For Thai, the character set TIS620 is supported.
30 30
31 ;; #### I don't know how this differs from the existing thai-xtis.el so 31 ;; #### I don't know how this differs from the existing thai-xtis.el so
32 ;; I'm leaving it commented out. 32 ;; I'm leaving it commented out.
33 33
34 ;;; Code: 34 ;;; Code:
35
36 ; (make-charset 'thai-tis620
37 ; "Right-Hand Part of TIS620.2533 (Thai): ISO-IR-166"
38 ; '(dimension
39 ; 1
40 ; registry "TIS620"
41 ; chars 96
42 ; columns 1
43 ; direction l2r
44 ; final ?T
45 ; graphic 1
46 ; short-name "RHP of TIS620"
47 ; long-name "RHP of Thai (TIS620): ISO-IR-166"
48 ; ))
35 49
36 ; ; (make-coding-system 50 ; ; (make-coding-system
37 ; ; 'thai-tis620 2 ?T 51 ; ; 'thai-tis620 2 ?T
38 ; ; "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)" 52 ; ; "8-bit encoding for ASCII (MSB=0) and Thai TIS620 (MSB=1)"
39 ; ; '(ascii thai-tis620 nil nil 53 ; ; '(ascii thai-tis620 nil nil
67 ; . (thai-compose-string 81 ; . (thai-compose-string
68 ; (copy-sequence "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B"))) 82 ; (copy-sequence "Thai (,T@RIRd7B(B) ,TJ0GQ1J04U1$0CQ1:(B, ,TJ0GQ1J04U10$h1P(B")))
69 ; (documentation . t))) 83 ; (documentation . t)))
70 84
71 85
72 ; ;; Register a function to compose Thai characters. 86 ;; Register a function to compose Thai characters.
73 ; (aset composition-function-table (make-char 'thai-tis620) 87 ; (put-char-table 'thai-tis620
74 ; '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" . thai-composition-function))) 88 ; '(("\\c0\\c4\\|\\c0\\(\\c2\\|\\c3\\)\\c4?" .
89 ; thai-composition-function))
90 ; composition-function-table)
75 91
76 (provide 'thai) 92 (provide 'thai)
77 93
78 ;;; thai.el ends here 94 ;;; thai.el ends here