[Emacs-diffs] emacs/lisp ChangeLog international/ccl.el

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/11/11 06:18:20

Modified files:
        lisp           : ChangeLog 
        lisp/international: ccl.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16598&r2=1.16599
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/ccl.el?cvsroot=emacs&r1=1.51&r2=1.52

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16598
retrieving revision 1.16599
diff -u -b -r1.16598 -r1.16599
--- ChangeLog   11 Nov 2009 06:17:07 -0000      1.16598
+++ ChangeLog   11 Nov 2009 06:18:17 -0000      1.16599
@@ -1,5 +1,7 @@
 2009-11-11  Dan Nicolaescu  <address@hidden>
 
+       * 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.

Index: international/ccl.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/ccl.el,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -b -r1.51 -r1.52
--- international/ccl.el        16 Mar 2009 11:12:40 -0000      1.51
+++ international/ccl.el        11 Nov 2009 06:18:20 -0000      1.52
@@ -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))