* emu-e20.el (ccl-use-symbol-as-program): Use

`ccl-execute-on-string' instead of `make-coding-system' for
avoiding the error "Coding system already exists".

diff --git a/ChangeLog b/ChangeLog
index c3de24b..6344fbd 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,16 @@
 1998-08-27  Tanaka Akira  <akr@jaist.ac.jp>
 
+        * emu-e20.el (ccl-use-symbol-as-program): Use
+       `ccl-execute-on-string' instead of `make-coding-system' for
+       avoiding the error "Coding system already exists".
+
+1998-08-27  Tanaka Akira  <akr@jaist.ac.jp>
+
+        * emu-e20.el (test-ccl-eof-block-cs): Check if it is already
+       defined.
+
+1998-08-27  Tanaka Akira  <akr@jaist.ac.jp>
+
        * emu-e20.el (ccl-use-symbol-as-program): New constant.
        (make-ccl-coding-system): New function.
        (ccl-encoder-eof-block-is-broken): New constant.

diff --git a/emu-e20.el b/emu-e20.el
index cf8d805..7ac0bda 100644 (file)
--- a/emu-e20.el
+++ b/emu-e20.el
@@ -165,6 +165,7 @@ TABLE defaults to the current buffer's category table."
 
 ;;; @ CCL
 ;;;
+(require 'ccl)
 
 (eval-and-compile
 (defconst ccl-use-symbol-as-program
@@ -172,12 +173,12 @@ TABLE defaults to the current buffer's category table."
     (define-ccl-program ew-ccl-identity-program
       '(1 ((read r0) (loop (write-read-repeat r0)))))
     (condition-case nil
-        (progn
-          (make-coding-system
-           'ew-ccl-identity 4 ?I
-           "Identity coding system for byte-compile time checking"
-           '(ew-ccl-identity-program . ew-ccl-identity-program))
-          t)
+       (progn
+         (ccl-execute-on-string
+           'ew-ccl-identity-program
+           (make-vector 9 nil)
+           "")
+         t)
       (error nil)))
   "t if CCL related builtins accept symbol as CCL
 program. (20.2 with ExCCL, 20.3 or later)