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

[Dan Nicolaescu]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Dan Nicolaescu <dann>   09/11/14 02:01:40

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

Log message:
        * bindings.el (mode-line-buffer-identification): Purecopy only the 
string.
        * international/ccl.el (define-ccl-program): Do not purecopy the
        docstring, defconst does it anyway.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16620&r2=1.16621
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/bindings.el?cvsroot=emacs&r1=1.232&r2=1.233
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/ccl.el?cvsroot=emacs&r1=1.52&r2=1.53

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16620
retrieving revision 1.16621
diff -u -b -r1.16620 -r1.16621
--- ChangeLog   13 Nov 2009 22:54:16 -0000      1.16620
+++ ChangeLog   14 Nov 2009 02:01:35 -0000      1.16621
@@ -1,3 +1,9 @@
+2009-11-14  Dan Nicolaescu  <address@hidden>
+
+       * bindings.el (mode-line-buffer-identification): Purecopy only the 
string.
+       * international/ccl.el (define-ccl-program): Do not purecopy the
+       docstring, defconst does it anyway.
+
 2009-11-13  Stefan Monnier  <address@hidden>
 
        * add-log.el (add-change-log-entry): Avoid displaying the changelog

Index: bindings.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/bindings.el,v
retrieving revision 1.232
retrieving revision 1.233
diff -u -b -r1.232 -r1.233
--- bindings.el 11 Nov 2009 05:49:12 -0000      1.232
+++ bindings.el 14 Nov 2009 02:01:40 -0000      1.233
@@ -459,7 +459,7 @@
                    'mouse-face 'mode-line-highlight
                    'local-map mode-line-buffer-identification-keymap)))
 
-(defvar mode-line-buffer-identification (purecopy 
(propertized-buffer-identification "%12b")) "\
+(defvar mode-line-buffer-identification (propertized-buffer-identification 
(purecopy "%12b")) "\
 Mode-line control for identifying the buffer being displayed.
 Its default value is (\"%12b\") with some text properties added.
 Major modes that edit things other than ordinary files may change this

Index: international/ccl.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/international/ccl.el,v
retrieving revision 1.52
retrieving revision 1.53
diff -u -b -r1.52 -r1.53
--- international/ccl.el        11 Nov 2009 06:18:20 -0000      1.52
+++ international/ccl.el        14 Nov 2009 02:01:40 -0000      1.53
@@ -1523,7 +1523,7 @@
                      (fset 'charset-id 'charset-id-internal)
                      (ccl-compile (eval ccl-program)))
                  (fmakunbound 'charset-id))))
-     (defconst ,name prog (purecopy ,doc))
+     (defconst ,name prog ,doc)
      (put ',name 'ccl-program-idx (register-ccl-program ',name prog))
      nil))