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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b146a1d4d9e393321a6bdf0908f9a047144df018..b2a0fb4f8f162418422ccb1acb628f0845a28798 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 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.

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index c5088c8c9e5fa43a2f765f608ade0c2dda449a63..bb67e17d039868b0760b5b85308a767460a6c1a5 100644 (file)
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -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))