[Emacs-diffs] emacs/lisp ChangeLog international/mule-cmds.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/11/11 06:22:34

Modified files:
        lisp           : ChangeLog 
        lisp/international: mule-cmds.el 

Log message:
        * international/mule-cmds.el (register-input-method); Purecopy 
arguments.
        (define-char-code-property): Correctly purecopy the table.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16599&r2=1.16600
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-cmds.el?cvsroot=emacs&r1=1.380&r2=1.381

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16599
retrieving revision 1.16600
diff -u -b -r1.16599 -r1.16600
--- ChangeLog   11 Nov 2009 06:18:17 -0000      1.16599
+++ ChangeLog   11 Nov 2009 06:22:30 -0000      1.16600
@@ -1,5 +1,8 @@
 2009-11-11  Dan Nicolaescu  <address@hidden>
 
+       * 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.

Index: international/mule-cmds.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.380
retrieving revision 1.381
diff -u -b -r1.380 -r1.381
--- international/mule-cmds.el  11 Nov 2009 06:06:47 -0000      1.380
+++ international/mule-cmds.el  11 Nov 2009 06:22:33 -0000      1.381
@@ -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)