From: Gerd Moellmann <gerd@gnu.org>
Date: Mon, 6 Aug 2001 12:28:57 +0000 (+0000)
Subject: ("chinese-py-punct"): Copy the QUAIL-MAP of
X-Git-Tag: emacs-pretest-21.0.105~278
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=852027b69aab5b670ba3e23332a3fcaf9fafa606;p=emacs.git

("chinese-py-punct"): Copy the QUAIL-MAP of
"chinese-py".
("chinese-tonepy-punct"): Copy the QUAIL-MAP of "chinese-tonepy".
---

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