Mercurial > emacs
diff lisp/international/ccl.el @ 89483:2f877ed80fa6
*** empty log message ***
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 08 Sep 2003 12:53:41 +0000 |
parents | 375f2633d815 6ec594d8593d |
children | 68c22ea6027c |
line wrap: on
line diff
--- a/lisp/international/ccl.el Mon Sep 08 11:56:09 2003 +0000 +++ b/lisp/international/ccl.el Mon Sep 08 12:53:41 2003 +0000 @@ -1502,7 +1502,12 @@ MAP-SET := MAP-IDs | (MAP-IDs) MAP-SET MAP-ID := integer " - `(let ((prog ,(ccl-compile (eval ccl-program)))) + `(let ((prog ,(unwind-protect + (progn + ;; To make ,(charset-id CHARSET) works well. + (fset 'charset-id 'charset-id-internal) + (ccl-compile (eval ccl-program))) + (fmakunbound 'charset-id)))) (defconst ,name prog ,doc) (put ',name 'ccl-program-idx (register-ccl-program ',name prog)) nil))