* 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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4580dcd49c27b792d7990adba0c807c2fa0c0c6e..4036291a27401ff0aa1df9682a36293a745e87a9 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-11-14  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * 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  <monnier@iro.umontreal.ca>
 
        * add-log.el (add-change-log-entry): Avoid displaying the changelog

diff --git a/lisp/bindings.el b/lisp/bindings.el
index 4fe12846028c0c04b9c0635a508b5494c48b5cdf..fac02a9e89911d61ebd9b8ffc2ed431b6a64c541 100644 (file)
--- a/lisp/bindings.el
+++ b/lisp/bindings.el
@@ -459,7 +459,7 @@ mouse-3: next buffer")
                    '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

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index bb67e17d039868b0760b5b85308a767460a6c1a5..c5088c8c9e5fa43a2f765f608ade0c2dda449a63 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 (purecopy ,doc))
+     (defconst ,name prog ,doc)
      (put ',name 'ccl-program-idx (register-ccl-program ',name prog))
      nil))