Commit ebfa10d3 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

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

(define-char-code-property): Correctly purecopy the table.
parent 62591911
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.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment