Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-20 11:57:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
(define-char-code-property): Correctly purecopy the table.
This commit is contained in:
Dan Nicolaescu 2009-11-11 06:22:30 +00:00
parent 6259191133
commit ebfa10d32f
2 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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.

9
lisp/international/mule-cmds.el
View file

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