From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Wed, 11 Nov 2009 06:22:30 +0000 (+0000)
Subject: * international/mule-cmds.el (register-input-method); Purecopy arguments.
X-Git-Tag: emacs-pretest-23.1.90~490
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ebfa10d32f11aeb2470d99757d013bc0cc4df7d4;p=emacs.git

* 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 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)