diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-08-06 12:28:57 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-08-06 12:28:57 +0000 |
| commit | 852027b69aab5b670ba3e23332a3fcaf9fafa606 (patch) | |
| tree | f25f8ef7562500b4a973393a0e64742ec2194882 /leim | |
| parent | 98a8938cdd30115781e81c091a759d188f7fd968 (diff) | |
| download | emacs-852027b69aab5b670ba3e23332a3fcaf9fafa606.tar.gz | |
("chinese-py-punct"): Copy the QUAIL-MAP of
"chinese-py".
("chinese-tonepy-punct"): Copy the QUAIL-MAP of "chinese-tonepy".
Diffstat (limited to 'leim')
| -rw-r--r-- | leim/quail/py-punct.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/leim/quail/py-punct.el b/leim/quail/py-punct.el index a2f9c7fef27..c3e380b1062 100644 --- a/leim/quail/py-punct.el +++ b/leim/quail/py-punct.el @@ -2,6 +2,7 @@ ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. +;; Copyright (C) 2001 Free Software Foundation, Inc. ;; Author: Ken'ichi HANDA <handa@etl.go.jp> @@ -47,7 +48,7 @@ For instance, typing `v' and `%' insert `$A#%(B'. ") (setcar (nthcdr 2 quail-current-package) - (nth 2 (assoc "chinese-py" quail-package-alist))) + (copy-sequence (nth 2 (assoc "chinese-py" quail-package-alist)))) (quail-defrule "v" (nth 2 (assoc "chinese-punct" quail-package-alist))) @@ -68,6 +69,9 @@ by any key sequences defined in `chinese-punct'. For instance, typing `v' and `%' insert `$A#%(B'. ") -(quail-defrule "v" (nth 2 (assoc "chinese-punct-b5" quail-package-alist))) +(setcar (nthcdr 2 quail-current-package) + (copy-sequence (nth 2 (assoc "chinese-tonepy" quail-package-alist)))) + +(quail-defrule "v" (nth 2 (assoc "chinese-punct" quail-package-alist))) ;;; py-punct.el ends here |