From 62591911330d5def728774a7ae3345204967810e Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Wed, 11 Nov 2009 06:18:17 +0000 Subject: (define-ccl-program): Purecopy the docstring. --- lisp/ChangeLog | 2 ++ lisp/international/ccl.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b146a1d4d9e..b2a0fb4f8f1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2009-11-11 Dan Nicolaescu + * 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 c5088c8c9e5..bb67e17d039 100644 --- 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)) -- cgit v1.2.1