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

(define-ccl-program): Purecopy the docstring.

parent 8b908da6
2009-11-11 Dan Nicolaescu <dann@ics.uci.edu>
* international/ccl.el (define-ccl-program): Purecopy the docstring.
* emacs-lisp/easy-mmode.el (define-minor-mode): Purecopy :lighter.
* subr.el (add-hook): Purecopy strings.
......
......@@ -1523,7 +1523,7 @@ MAP-ID := integer
(fset 'charset-id 'charset-id-internal)
(ccl-compile (eval ccl-program)))
(fmakunbound 'charset-id))))
(defconst ,name prog ,doc)
(defconst ,name prog (purecopy ,doc))
(put ',name 'ccl-program-idx (register-ccl-program ',name prog))
nil))
......
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