# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1257920550 0
# Node ID 6bc99fd16720b913772f5587eae67b9db14018c5
# Parent  8b630212b55498871a2603320ba009bb3fe68419
* international/mule-cmds.el (register-input-method); Purecopy arguments.
(define-char-code-property): Correctly purecopy the table.

diff -r 8b630212b554 -r 6bc99fd16720 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Nov 11 06:18:17 2009 +0000
+++ b/lisp/ChangeLog	Wed Nov 11 06:22:30 2009 +0000
@@ -1,5 +1,8 @@
 2009-11-11  Dan Nicolaescu  <dann@ics.uci.edu>
 
+	* international/mule-cmds.el (register-input-method); Purecopy arguments.
+	(define-char-code-property): Correctly purecopy the table.
+
 	* international/ccl.el (define-ccl-program): Purecopy the docstring.
 
 	* emacs-lisp/easy-mmode.el (define-minor-mode): Purecopy :lighter.
diff -r 8b630212b554 -r 6bc99fd16720 lisp/international/mule-cmds.el
--- a/lisp/international/mule-cmds.el	Wed Nov 11 06:18:17 2009 +0000
+++ b/lisp/international/mule-cmds.el	Wed Nov 11 06:22:30 2009 +0000
@@ -1370,9 +1370,12 @@
 without loading the relevant Quail packages.
 \n(fn INPUT-METHOD LANG-ENV ACTIVATE-FUNC TITLE DESCRIPTION &rest ARGS)"
   (if (symbolp lang-env)
-      (setq lang-env (symbol-name lang-env)))
+      (setq lang-env (symbol-name lang-env))
+    (setq lang-env (purecopy lang-env)))
   (if (symbolp input-method)
-      (setq input-method (symbol-name input-method)))
+      (setq input-method (symbol-name input-method))
+    (setq input-method (purecopy input-method)))
+  (setq args (mapcar 'purecopy args))
   (let ((info (cons lang-env args))
 	(slot (assoc input-method input-method-alist)))
     (if slot
@@ -2746,7 +2749,7 @@
 	  (error "Invalid char-table: %s" table))
     (or (stringp table)
 	(error "Not a char-table nor a file name: %s" table)))
-  (if (stringp table) (purecopy table))
+  (if (stringp table) (setq table (purecopy table)))
   (let ((slot (assq name char-code-property-alist)))
     (if slot
 	(setcdr slot table)