summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGerd Moellmann <gerd@gnu.org>2001-08-06 12:28:57 +0000
committerGerd Moellmann <gerd@gnu.org>2001-08-06 12:28:57 +0000
commit609abd69530f5fa33c0b69e40e900198e72e9e58 (patch)
tree5e9d6bc61c4fe90296cf7a9b7a2acb2991152b07
parentd783edb4ded8546c9f17ca12fab9d76a8ba9ef27 (diff)
downloademacs-609abd69530f5fa33c0b69e40e900198e72e9e58.tar.gz
("chinese-py-punct"): Copy the QUAIL-MAP of
"chinese-py". ("chinese-tonepy-punct"): Copy the QUAIL-MAP of "chinese-tonepy".
-rw-r--r--leim/quail/py-punct.el8
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