Mercurial > emacs
comparison lisp/language/lao.el @ 17083:9e6a3e03ed4c
Initial revision
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Wed, 26 Feb 1997 12:22:56 +0000 |
parents | |
children | 550afdbb31d8 |
comparison
equal
deleted
inserted
replaced
17082:e75db0b60c9d | 17083:9e6a3e03ed4c |
---|---|
1 ;;; lao.el --- Support for Lao | |
2 | |
3 ;; Copyright (C) 1997 Free Software Foundation, Inc. | |
4 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. | |
5 | |
6 ;; Keywords: multilingual, Lao | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
24 | |
25 ;;; Code: | |
26 | |
27 (make-coding-system | |
28 'lao 2 ?T | |
29 "Coding-system used for ASCII(MSB=0) & LAO(MSB=1)." | |
30 '((ascii t) (lao t) nil nil | |
31 nil ascii-eol)) | |
32 | |
33 (register-input-method | |
34 "Lao" '("quail-lao" quail-use-package "quail/lao")) | |
35 | |
36 (register-input-method | |
37 "Lao" '("quail-lrt" quail-use-package "quail/lrt")) | |
38 | |
39 (defun setup-lao-environment () | |
40 (setq coding-category-iso-8-1 'lao) | |
41 | |
42 (set-coding-priority | |
43 '(coding-category-iso-7 | |
44 coding-category-iso-8-1)) | |
45 | |
46 (set-default buffer-file-coding-system 'iso-2022-7) | |
47 | |
48 (setq default-input-method '("Lao" . "quail-lao"))) | |
49 | |
50 (set-language-info-alist | |
51 "Lao" '((setup-function . setup-lao-environment) | |
52 (charset . (lao)) | |
53 (coding-system . (lao)) | |
54 (documentation . t) | |
55 (sample-text . "Lao((1>RJRERG(B) (1JP:R-04U1(B, 0(1"i1M-`0;Q190$[19ERG(B"))) | |
56 | |
57 (aset use-default-ascent ?(1;(B t) | |
58 (aset use-default-ascent ?(1=(B t) | |
59 (aset use-default-ascent ?(1?(B t) | |
60 (aset use-default-ascent ?(1B(B t) | |
61 | |
62 ;;; lao.el ends here |