From: akr <akr>
Date: Thu, 27 Aug 1998 04:05:41 +0000 (+0000)
Subject: * emu-e20.el (test-ccl-eof-block-cs): Check if it is already
X-Git-Tag: apel-8_16~17
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=040b816908ef293e567cf66347afbd827fdba5a2;p=elisp%2Fapel.git

* emu-e20.el (test-ccl-eof-block-cs): Check if it is already
defined.
---

diff --git a/emu-e20.el b/emu-e20.el
index cbb03b0..cf8d805 100644
--- a/emu-e20.el
+++ b/emu-e20.el
@@ -203,10 +203,11 @@ DECODER (symbol) and ENCODER (symbol)."
     (read r0)
     (write "[EOF]")))
 
-(make-ccl-coding-system 'test-ccl-eof-block-cs ?T
-  "CCL_EOF_BLOCK tester"
-  'test-ccl-eof-block
-  'test-ccl-eof-block)
+(unless (coding-system-p 'test-ccl-eof-block-cs)
+  (make-ccl-coding-system 'test-ccl-eof-block-cs ?T
+			  "CCL_EOF_BLOCK tester"
+			  'test-ccl-eof-block
+			  'test-ccl-eof-block))
 )
 
 (defconst ccl-encoder-eof-block-is-broken