From: akr <akr>
Date: Thu, 27 Aug 1998 04:25:40 +0000 (+0000)
Subject: * emu-e20.el (ccl-use-symbol-as-program): Use
X-Git-Tag: apel-8_16~16
X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fapel.git;a=commitdiff_plain;h=0fc09247dc96f05d9d69ca35b1728b3b584c4208

* 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
--- 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
--- 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)