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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b2a0fb4f8f162418422ccb1acb628f0845a28798..0bd7a705ea6a316eada20cd066013d5c4e350020 100644 (file)
--- 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 4b45bf6b37806f1ef189c626eb964011856de40e..e11aff4eb6ead6b15af8d59156335de6a7856532 100644 (file)
--- 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)