From acc89ed1ef479c2ce850674e58218b1ef844741a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 30 Jan 2003 02:27:52 +0000 Subject: [PATCH] (define-ccl-program): Fset charset-id to charset-id-internal temporarily. --- lisp/international/ccl.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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)) -- 2.39.5