Mercurial > emacs

changeset 105946:8b630212b554

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(define-ccl-program): Purecopy the docstring.
author Dan Nicolaescu <dann@ics.uci.edu>
date Wed, 11 Nov 2009 06:18:17 +0000
parents 503b88c15efc
children 6bc99fd16720
files lisp/ChangeLog lisp/international/ccl.el
diffstat 2 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Wed Nov 11 06:17:07 2009 +0000
+++ b/lisp/ChangeLog	Wed Nov 11 06:18:17 2009 +0000
@@ -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.
--- a/lisp/international/ccl.el	Wed Nov 11 06:17:07 2009 +0000
+++ b/lisp/international/ccl.el	Wed Nov 11 06:18:17 2009 +0000
@@ -1523,7 +1523,7 @@
 		      (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))