* 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>
 
 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.
        * 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
 ;;;
 
 ;;; @ CCL
 ;;;

+(require 'ccl)

 
 (eval-and-compile
 (defconst ccl-use-symbol-as-program
 
 (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
     (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)
       (error nil)))
   "t if CCL related builtins accept symbol as CCL
 program. (20.2 with ExCCL, 20.3 or later)