# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1043893672 0
# Node ID 6ec594d8593dc61685165c9b4719332cc56df796
# Parent  4b653615bbe4fd382fd5f014da5c9ada88132903
(define-ccl-program): Fset charset-id to charset-id-internal
temporarily.

diff -r 4b653615bbe4 -r 6ec594d8593d lisp/international/ccl.el
--- a/lisp/international/ccl.el	Thu Jan 30 02:25:12 2003 +0000
+++ b/lisp/international/ccl.el	Thu Jan 30 02:27:52 2003 +0000
@@ -1446,7 +1446,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))