(define-ccl-program): Fset charset-id to charset-id-internal

temporarily.

1 files changed, 6 insertions, 1 deletions

diff --git a/lisp/international/ccl.el b/lisp/international/ccl.el
index 2053b6364cb..f56095f0d46 100644
--- a/lisp/international/ccl.el
+++ b/lisp/international/ccl.el
@@ -1446,7 +1446,12 @@ MAP-IDs := MAP-ID ...
 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))