* international/mule-cmds.el (register-input-method); Purecopy arguments.

(define-char-code-property): Correctly purecopy the table.

2 files changed, 9 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2a0fb4f8f1..0bd7a705ea6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 4b45bf6b378..e11aff4eb6e 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -1370,9 +1370,12 @@ these duplicated values to show some information about input methods
 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 @@ See also the documentation of `get-char-code-property' and
           (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)