Mercurial > emacs
annotate leim/quail/py-punct.el @ 38431:853c3674f20a
Fixes to follow coding conventions.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Mon, 16 Jul 2001 11:39:42 +0000 |
parents | f5fac9bb3bd0 |
children | 519983161a46 |
rev | line source |
---|---|
18803 | 1 ;; quail/py-punct.el -- Quail packages for Chinese (pinyin + extra symbols) |
2 | |
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. | |
4 ;; Licensed to the Free Software Foundation. | |
5 | |
6 ;; Author: Ken'ichi HANDA <handa@etl.go.jp> | |
7 | |
8 ;; Keywords: multilingual, input method, Chienese | |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 ;; Boston, MA 02111-1307, USA. | |
26 | |
18966 | 27 (require 'quail) |
28 | |
18803 | 29 (load "quail/PY") |
30 (load "quail/Punct") | |
31 | |
32 (quail-define-package | |
33 "chinese-py-punct" "Chinese-GB" "$AF47{(B" | |
34 t | |
35 "$A::WVJdHk(B $AF4Rt7=08(B and `v' for $A1j5c7{:EJdHk(B | |
36 | |
31429
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
37 This is the combination of the input methods `chinese-py' and `chinese-punct'. |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
38 You can enter normal Chinese characters by the same way as `chinese-py'. |
18803 | 39 And, you can enter symbols by typing `v' followed by any key sequences |
31429
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
40 defined in `chinese-punct'. |
18803 | 41 |
42 For instance, typing `v' and `%' insert `$A#%(B'. | |
43 ") | |
44 | |
45 (setcar (nthcdr 2 quail-current-package) | |
46 (nth 2 (assoc "chinese-py" quail-package-alist))) | |
47 | |
48 (quail-defrule "v" (nth 2 (assoc "chinese-punct" quail-package-alist))) | |
31429
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
49 |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
50 (load "quail/TONEPY") |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
51 |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
52 (quail-define-package |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
53 "chinese-tonepy-punct" "Chinese-GB" "$AF47{(B" |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
54 t |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
55 "$A::WVJdHk(B $A4x5wF4Rt7=08(B and `v' for $A1j5c7{:EJdHk(B |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
56 |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
57 This is the combination of the input methods `chinese-tonepy' and |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
58 `chinese-punct'. |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
59 |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
60 You can enter normal Chinese characters by the same way as |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
61 `chinese-tonepy'. And, you can enter symbols by typing `v' followed |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
62 by any key sequences defined in `chinese-punct'. |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
63 |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
64 For instance, typing `v' and `%' insert `$A#%(B'. |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
65 ") |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
66 |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
67 (quail-defrule "v" (nth 2 (assoc "chinese-punct-b5" quail-package-alist))) |