Commit 2d0659ec authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

* 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.
parent d499c5b9
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
......
......@@ -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
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment