From 0fc09247dc96f05d9d69ca35b1728b3b584c4208 Mon Sep 17 00:00:00 2001 From: akr Date: Thu, 27 Aug 1998 04:25:40 +0000 Subject: [PATCH] * 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". --- ChangeLog | 11 +++++++++++ emu-e20.el | 13 +++++++------ 2 files changed, 18 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index c3de24b..6344fbd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,16 @@ 1998-08-27 Tanaka Akira + * 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 + + * emu-e20.el (test-ccl-eof-block-cs): Check if it is already + defined. + +1998-08-27 Tanaka Akira + * 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) -- 1.7.10.4