Mercurial > emacs
comparison lisp/international/ccl.el @ 105996:5bb289ba7169
* 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.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Sat, 14 Nov 2009 02:01:35 +0000 |
| parents | 8b630212b554 |
| children | 1d1d5d9bd884 |
comparison
equal
deleted
inserted
replaced
| 105995:d90116e2656a | 105996:5bb289ba7169 |
|---|---|
| 1521 (progn | 1521 (progn |
| 1522 ;; To make ,(charset-id CHARSET) works well. | 1522 ;; To make ,(charset-id CHARSET) works well. |
| 1523 (fset 'charset-id 'charset-id-internal) | 1523 (fset 'charset-id 'charset-id-internal) |
| 1524 (ccl-compile (eval ccl-program))) | 1524 (ccl-compile (eval ccl-program))) |
| 1525 (fmakunbound 'charset-id)))) | 1525 (fmakunbound 'charset-id)))) |
| 1526 (defconst ,name prog (purecopy ,doc)) | 1526 (defconst ,name prog ,doc) |
| 1527 (put ',name 'ccl-program-idx (register-ccl-program ',name prog)) | 1527 (put ',name 'ccl-program-idx (register-ccl-program ',name prog)) |
| 1528 nil)) | 1528 nil)) |
| 1529 | 1529 |
| 1530 ;;;###autoload | 1530 ;;;###autoload |
| 1531 (defmacro check-ccl-program (ccl-program &optional name) | 1531 (defmacro check-ccl-program (ccl-program &optional name) |