annotate lisp/language/lao.el @ 31965:802005285b66

*** empty log message ***
author Dave Love <fx@gnu.org>
date Thu, 28 Sep 2000 21:31:46 +0000
parents 78d4a8d767d5
children 6d966e8b4bbe
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
23158
5c0a4ed13900 Add coding: local variable, to avoid bootstrapping problem
Paul Eggert <eggert@twinsun.com>
parents: 22983
diff changeset
1 ;;; lao.el --- Support for Lao -*- coding: iso-2022-7bit; -*-
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
18377
8b4a66c66dd6 Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents: 18309
diff changeset
4 ;; Licensed to the Free Software Foundation.
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6 ;; Keywords: multilingual, Lao
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13 ;; any later version.
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 ;; Boston, MA 02111-1307, USA.
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 ;;; Code:
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 (make-coding-system
18203
0745f30aec66 Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents: 17993
diff changeset
28 'lao 2 ?L
0745f30aec66 Adjusted for coding system name change.
Kenichi Handa <handa@m17n.org>
parents: 17993
diff changeset
29 "8-bit encoding for ASCII (MSB=0) and LAO (MSB=1)"
20739
5f2c7f919bbf Adjusted for the change of make-coding-system. Register
Kenichi Handa <handa@m17n.org>
parents: 20156
diff changeset
30 '(ascii lao nil nil
5f2c7f919bbf Adjusted for the change of make-coding-system. Register
Kenichi Handa <handa@m17n.org>
parents: 20156
diff changeset
31 nil nil)
5f2c7f919bbf Adjusted for the change of make-coding-system. Register
Kenichi Handa <handa@m17n.org>
parents: 20156
diff changeset
32 '((safe-charsets ascii lao)))
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 (set-language-info-alist
22983
7a010b8c0d99 ("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents: 20739
diff changeset
35 "Lao" '((charset lao)
20739
5f2c7f919bbf Adjusted for the change of make-coding-system. Register
Kenichi Handa <handa@m17n.org>
parents: 20156
diff changeset
36 (coding-system lao)
5f2c7f919bbf Adjusted for the change of make-coding-system. Register
Kenichi Handa <handa@m17n.org>
parents: 20156
diff changeset
37 (coding-priority lao)
22983
7a010b8c0d99 ("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents: 20739
diff changeset
38 (input-method . "lao")
7a010b8c0d99 ("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents: 20739
diff changeset
39 (nonascii-translation . lao)
7a010b8c0d99 ("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents: 20739
diff changeset
40 (unibyte-display . lao)
7a010b8c0d99 ("LANUGAGE-ENVIRONMENT"): Delete property setup-function or change
Kenichi Handa <handa@m17n.org>
parents: 20739
diff changeset
41 (features lao-util)
17841
084d922fcd78 Coding system names changed as follows:
Kenichi Handa <handa@m17n.org>
parents: 17772
diff changeset
42 (documentation . t)))
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 (aset use-default-ascent ?(1;(B t)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 (aset use-default-ascent ?(1=(B t)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 (aset use-default-ascent ?(1?(B t)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 (aset use-default-ascent ?(1B(B t)
19270
856dfd93a3e1 Correct setting of char-code-property `name'.
Kenichi Handa <handa@m17n.org>
parents: 18377
diff changeset
48 (aset ignore-relative-composition ?(1\(B t)
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49
26893
78d4a8d767d5 Register lao-composition-function in
Kenichi Handa <handa@m17n.org>
parents: 23158
diff changeset
50 ;; Register a function to compose Lao characters.
78d4a8d767d5 Register lao-composition-function in
Kenichi Handa <handa@m17n.org>
parents: 23158
diff changeset
51 (aset composition-function-table (make-char 'lao)
78d4a8d767d5 Register lao-composition-function in
Kenichi Handa <handa@m17n.org>
parents: 23158
diff changeset
52 '(("\\c0\\c9?\\(\\(\\c2\\|\\c3\\)\\c4?\\|\\c4\\)?"
78d4a8d767d5 Register lao-composition-function in
Kenichi Handa <handa@m17n.org>
parents: 23158
diff changeset
53 . lao-composition-function)))
78d4a8d767d5 Register lao-composition-function in
Kenichi Handa <handa@m17n.org>
parents: 23158
diff changeset
54
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 ;;; lao.el ends here