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))