From 040b816908ef293e567cf66347afbd827fdba5a2 Mon Sep 17 00:00:00 2001 From: akr Date: Thu, 27 Aug 1998 04:05:41 +0000 Subject: [PATCH] * emu-e20.el (test-ccl-eof-block-cs): Check if it is already defined. --- emu-e20.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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 -- 1.7.10.4