diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-14 02:01:35 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-14 02:01:35 +0000 |
| commit | 2d0659ec81d7340085a2faaa227518745f0678b7 (patch) | |
| tree | 1c9a292d8447dfe7f187532c4e6141391bb03e8c | |
| parent | d499c5b950a2aa8d6af470e672821f927d6e50c5 (diff) | |
| download | emacs-2d0659ec81d7340085a2faaa227518745f0678b7.tar.gz | |
* 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.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/bindings.el | 2 | ||||
| -rw-r--r-- | lisp/international/ccl.el | 2 |
3 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4580dcd49c2..4036291a274 100644 --- 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 4fe12846028..fac02a9e899 100644 --- 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 bb67e17d039..c5088c8c9e5 100644 --- 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)) |