# HG changeset patch # User Dan Nicolaescu # Date 1258164095 0 # Node ID 5bb289ba7169d85697bf8d7d7d9f090e88c63751 # Parent d90116e2656a0dbcf5a8b55e9c31c0eb44114876 * 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 -r d90116e2656a -r 5bb289ba7169 lisp/ChangeLog --- a/lisp/ChangeLog Fri Nov 13 22:54:16 2009 +0000 +++ b/lisp/ChangeLog Sat Nov 14 02:01:35 2009 +0000 @@ -1,3 +1,9 @@ +2009-11-14 Dan Nicolaescu + + * 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 * add-log.el (add-change-log-entry): Avoid displaying the changelog diff -r d90116e2656a -r 5bb289ba7169 lisp/bindings.el --- a/lisp/bindings.el Fri Nov 13 22:54:16 2009 +0000 +++ b/lisp/bindings.el Sat Nov 14 02:01:35 2009 +0000 @@ -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 diff -r d90116e2656a -r 5bb289ba7169 lisp/international/ccl.el --- a/lisp/international/ccl.el Fri Nov 13 22:54:16 2009 +0000 +++ b/lisp/international/ccl.el Sat Nov 14 02:01:35 2009 +0000 @@ -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))