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 /lisp/international/ccl.el | |
| 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.
Diffstat (limited to 'lisp/international/ccl.el')
| -rw-r--r-- | lisp/international/ccl.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)) |