Commit acc89ed1 authored by Kenichi Handa's avatar Kenichi Handa

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

temporarily.
parent d5b33309
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment