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> 2009-11-13 Stefan Monnier <monnier@iro.umontreal.ca>
* add-log.el (add-change-log-entry): Avoid displaying the changelog * add-log.el (add-change-log-entry): Avoid displaying the changelog
......
...@@ -459,7 +459,7 @@ mouse-3: next buffer") ...@@ -459,7 +459,7 @@ mouse-3: next buffer")
'mouse-face 'mode-line-highlight 'mouse-face 'mode-line-highlight
'local-map mode-line-buffer-identification-keymap))) '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. Mode-line control for identifying the buffer being displayed.
Its default value is (\"%12b\") with some text properties added. Its default value is (\"%12b\") with some text properties added.
Major modes that edit things other than ordinary files may change this Major modes that edit things other than ordinary files may change this
......
...@@ -1523,7 +1523,7 @@ MAP-ID := integer ...@@ -1523,7 +1523,7 @@ MAP-ID := integer
(fset 'charset-id 'charset-id-internal) (fset 'charset-id 'charset-id-internal)
(ccl-compile (eval ccl-program))) (ccl-compile (eval ccl-program)))
(fmakunbound 'charset-id)))) (fmakunbound 'charset-id))))
(defconst ,name prog (purecopy ,doc)) (defconst ,name prog ,doc)
(put ',name 'ccl-program-idx (register-ccl-program ',name prog)) (put ',name 'ccl-program-idx (register-ccl-program ',name prog))
nil)) 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