/[emacs]/emacs/lisp/international/ccl.el
ViewVC logotype

Diff of /emacs/lisp/international/ccl.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by pj, Sun Jul 15 19:53:53 2001 UTC revision 1.29.6.1 by handa, Thu Jan 30 02:27:52 2003 UTC
# Line 1446  MAP-IDs := MAP-ID ... Line 1446  MAP-IDs := MAP-ID ...
1446  MAP-SET := MAP-IDs | (MAP-IDs) MAP-SET  MAP-SET := MAP-IDs | (MAP-IDs) MAP-SET
1447  MAP-ID := integer  MAP-ID := integer
1448  "  "
1449    `(let ((prog ,(ccl-compile (eval ccl-program))))    `(let ((prog ,(unwind-protect
1450                        (progn
1451                          ;; To make ,(charset-id CHARSET) works well.
1452                          (fset 'charset-id 'charset-id-internal)
1453                          (ccl-compile (eval ccl-program)))
1454                      (fmakunbound 'charset-id))))
1455       (defconst ,name prog ,doc)       (defconst ,name prog ,doc)
1456       (put ',name 'ccl-program-idx (register-ccl-program ',name prog))       (put ',name 'ccl-program-idx (register-ccl-program ',name prog))
1457       nil))       nil))

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.29.6.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26