comparison lisp/mule/lao.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 578cb2932d72
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
1 ;;; lao.el --- Support for Lao -*- coding: iso-2022-7bit; -*- 1 ;;; lao.el --- support for Lao -*- coding: iso-2022-7bit; -*-
2 2
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation. 4 ;; Licensed to the Free Software Foundation.
5 5
6 ;; Keywords: multilingual, Lao 6 ;; Keywords: multilingual, Lao
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/lao.el). 25 ;;; Synched up with: Emacs 21.1 (language/lao.el).
26
27 ;;; Commentary:
26 28
27 ;;; Code: 29 ;;; Code:
30
31 ;; Lao script.
32 ;; ISO10646's 0x0E80..0x0EDF are mapped to 0x20..0x7F.
33 (make-charset 'lao "Lao characters (ISO10646 0E80..0EDF)"
34 '(dimension
35 1
36 registry "MuleLao-1"
37 chars 94
38 columns 1
39 direction l2r
40 final ?1
41 graphic 0
42 short-name "Lao"
43 long-name "Lao"
44 ))
28 45
29 ; (make-coding-system 46 ; (make-coding-system
30 ; 'lao 2 ?L 47 ; 'lao 2 ?L
31 ; "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)" 48 ; "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)"
32 ; '(ascii lao nil nil 49 ; '(ascii lao nil nil
56 (aset use-default-ascent ?(1?(B t) 73 (aset use-default-ascent ?(1?(B t)
57 (aset use-default-ascent ?(1B(B t) 74 (aset use-default-ascent ?(1B(B t)
58 (aset ignore-relative-composition ?(1\(B t) 75 (aset ignore-relative-composition ?(1\(B t)
59 76
60 ;; Register a function to compose Lao characters. 77 ;; Register a function to compose Lao characters.
61 (aset composition-function-table (make-char 'lao) 78 (put-char-table 'lao
62 '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?" 79 '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?"
63 . lao-composition-function))) 80 . lao-composition-function))
81 composition-function-table)
64 82
65 (provide 'lao) 83 (provide 'lao)
66 84
67 ;;; lao.el ends here 85 ;;; lao.el ends here