From: Kenichi Handa <handa@m17n.org>
Date: Thu, 30 Jan 2003 02:27:52 +0000 (+0000)
Subject: (define-ccl-program): Fset charset-id to charset-id-internal
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~93
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=acc89ed1ef479c2ce850674e58218b1ef844741a;p=emacs.git

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

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