Mercurial > hg > xemacs-beta
comparison lisp/leim/quail/py-punct.el @ 197:acd284d43ca1 r20-3b25
Import from CVS: tag r20-3b25
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:00:02 +0200 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 196:58e0786448ca | 197:acd284d43ca1 |
|---|---|
| 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 | |
| 27 (require 'quail) | |
| 28 | |
| 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 | |
| 37 This is the combination of Quail packages \"chinese-py\" and \"chinese-punct\". | |
| 38 You can enter normal Chinese characters by the same way as \"chinese-py\". | |
| 39 And, you can enter symbols by typing `v' followed by any key sequences | |
| 40 defined in \"chinese-punct\". | |
| 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))) |