Mercurial > emacs

changeset 89376:6ec594d8593d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(define-ccl-program): Fset charset-id to charset-id-internal temporarily.
author Kenichi Handa <handa@m17n.org>
date Thu, 30 Jan 2003 02:27:52 +0000
parents 4b653615bbe4
children b185a90cd78f
files lisp/international/ccl.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))