Mercurial > emacs

comparison leim/quail/pypunct-b5.el @ 88155:d7ddb3e565de

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync with trunk
author Henrik Enberg <henrik.enberg@telia.com>
date Mon, 16 Jan 2006 00:03:54 +0000
parents 519983161a46
children
comparison
equal deleted inserted replaced
88154:8ce476d3ba36 88155:d7ddb3e565de
1 ;;; pypunct-b5.el --- Quail packages for Chinese (pinyin + extra symbols) 1 ;;; pypunct-b5.el --- Quail packages for Chinese (pinyin + extra symbols)
2 2
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. 3 ;; Copyright (C) 1997, 2000
4 ;; Licensed to the Free Software Foundation. 4 ;; National Institute of Advanced Industrial Science and Technology (AIST)
5 ;; Registration Number H14PRO021
5 6
6 ;; Author: Ken'ichi HANDA <handa@etl.go.jp> 7 ;; Author: Ken'ichi HANDA <handa@etl.go.jp>
7 8
8 ;; Keywords: multilingual, input method, Chienese 9 ;; Keywords: multilingual, input method, Chienese
9 10
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20 ;; GNU General Public License for more details. 21 ;; GNU General Public License for more details.
21 22
22 ;; You should have received a copy of the GNU General Public License 23 ;; 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 ;; along with GNU Emacs; see the file COPYING. If not, write to the
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
25 ;; Boston, MA 02111-1307, USA. 26 ;; Boston, MA 02110-1301, USA.
26 27
27 ;;; Commentary: 28 ;;; Commentary:
28 29
29 ;;; Code: 30 ;;; Code:
30 31
32 33
33 (load "quail/PY-b5") 34 (load "quail/PY-b5")
34 (load "quail/Punct-b5") 35 (load "quail/Punct-b5")
35 36
36 (quail-define-package 37 (quail-define-package
37 "chinese-py-punct-b5" "Chinese-BIG5" "$AF47{(B" 38 "chinese-py-punct-b5" "Chinese-BIG5" "$(03<>K(B"
38 t 39 t
39 "$(0&d'GTT&,!J3<5x!K(B and `v' for $(0O:X5>KHATT&,(B 40 "$(0&d'GTT&,!J3<5x!K(B and `v' for $(0O:X5>KHATT&,(B
40 41
41 This is the combination of the input method `chinese-py-b5' and 42 This is the combination of the input method `chinese-py-b5' and
42 `chinese-punct-b5'. 43 `chinese-punct-b5'.
51 (setcar (nthcdr 2 quail-current-package) 52 (setcar (nthcdr 2 quail-current-package)
52 (nth 2 (assoc "chinese-py-b5" quail-package-alist))) 53 (nth 2 (assoc "chinese-py-b5" quail-package-alist)))
53 54
54 (quail-defrule "v" (nth 2 (assoc "chinese-punct-b5" quail-package-alist))) 55 (quail-defrule "v" (nth 2 (assoc "chinese-punct-b5" quail-package-alist)))
55 56
57 ;;; arch-tag: fe8176d3-b467-47d5-9ed9-75b6e27cf29b
56 ;;; pypunct-b5.el ends here 58 ;;; pypunct-b5.el ends here