Mercurial > emacs
annotate leim/quail/py-punct.el @ 62675:114ecd5ee47b
Add more pointers to ports of Unix tools to Windows, and to the Emacs Wiki
(which contains building instructions for Windows). Reword image library
instructions and remove obsolete incompatibility information.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 24 May 2005 10:40:51 +0000 |
parents | 695cf19ef79e |
children | 23a17af379b1 375f2633d815 |
rev | line source |
---|---|
40710 | 1 ;;; py-punct.el --- Quail packages for Chinese (pinyin + extra symbols) -*-coding: iso-2022-7bit;-*- |
18803 | 2 |
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. | |
4 ;; Licensed to the Free Software Foundation. | |
38701
fc81ac1c9e64
("chinese-py-punct"): Copy the QUAIL-MAP of
Gerd Moellmann <gerd@gnu.org>
parents:
38453
diff
changeset
|
5 ;; Copyright (C) 2001 Free Software Foundation, Inc. |
18803 | 6 |
7 ;; Author: Ken'ichi HANDA <handa@etl.go.jp> | |
8 | |
9 ;; Keywords: multilingual, input method, Chienese | |
10 | |
11 ;; This file is part of GNU Emacs. | |
12 | |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
14 ;; it under the terms of the GNU General Public License as published by | |
15 ;; the Free Software Foundation; either version 2, or (at your option) | |
16 ;; any later version. | |
17 | |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
24 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
26 ;; Boston, MA 02111-1307, USA. | |
27 | |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
31429
diff
changeset
|
28 ;;; Commentary: |
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
31429
diff
changeset
|
29 |
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
31429
diff
changeset
|
30 ;;; Code: |
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
31429
diff
changeset
|
31 |
18966 | 32 (require 'quail) |
33 | |
18803 | 34 (load "quail/PY") |
35 (load "quail/Punct") | |
36 | |
37 (quail-define-package | |
38 "chinese-py-punct" "Chinese-GB" "$AF47{(B" | |
39 t | |
40 "$A::WVJdHk(B $AF4Rt7=08(B and `v' for $A1j5c7{:EJdHk(B | |
41 | |
31429
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
42 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
|
43 You can enter normal Chinese characters by the same way as `chinese-py'. |
18803 | 44 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
|
45 defined in `chinese-punct'. |
18803 | 46 |
47 For instance, typing `v' and `%' insert `$A#%(B'. | |
48 ") | |
49 | |
50 (setcar (nthcdr 2 quail-current-package) | |
38701
fc81ac1c9e64
("chinese-py-punct"): Copy the QUAIL-MAP of
Gerd Moellmann <gerd@gnu.org>
parents:
38453
diff
changeset
|
51 (copy-sequence (nth 2 (assoc "chinese-py" quail-package-alist)))) |
18803 | 52 |
53 (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
|
54 |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
55 (load "quail/TONEPY") |
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 (quail-define-package |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
58 "chinese-tonepy-punct" "Chinese-GB" "$AF47{(B" |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
59 t |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
60 "$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
|
61 |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
62 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
|
63 `chinese-punct'. |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
64 |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
65 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
|
66 `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
|
67 by any key sequences defined in `chinese-punct'. |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
68 |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
69 For instance, typing `v' and `%' insert `$A#%(B'. |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
70 ") |
f5fac9bb3bd0
("chinese-py-punct"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents:
18966
diff
changeset
|
71 |
38701
fc81ac1c9e64
("chinese-py-punct"): Copy the QUAIL-MAP of
Gerd Moellmann <gerd@gnu.org>
parents:
38453
diff
changeset
|
72 (setcar (nthcdr 2 quail-current-package) |
fc81ac1c9e64
("chinese-py-punct"): Copy the QUAIL-MAP of
Gerd Moellmann <gerd@gnu.org>
parents:
38453
diff
changeset
|
73 (copy-sequence (nth 2 (assoc "chinese-tonepy" quail-package-alist)))) |
fc81ac1c9e64
("chinese-py-punct"): Copy the QUAIL-MAP of
Gerd Moellmann <gerd@gnu.org>
parents:
38453
diff
changeset
|
74 |
fc81ac1c9e64
("chinese-py-punct"): Copy the QUAIL-MAP of
Gerd Moellmann <gerd@gnu.org>
parents:
38453
diff
changeset
|
75 (quail-defrule "v" (nth 2 (assoc "chinese-punct" quail-package-alist))) |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
31429
diff
changeset
|
76 |
52401 | 77 ;;; arch-tag: 941fd2ac-2d26-4b0e-8458-b5e485c5aa7d |
38453
519983161a46
Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents:
31429
diff
changeset
|
78 ;;; py-punct.el ends here |