From: morioka <morioka>
Date: Thu, 17 Sep 1998 04:29:02 +0000 (+0000)
Subject: (make-ccl-coding-system): New function.
X-Git-Tag: apel-8_18~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=08336f0229ef7233b770c16046ef5b9f8b9c004e;p=elisp%2Fapel.git

(make-ccl-coding-system): New function.
---

diff --git a/emu-x20.el b/emu-x20.el
index 82aa624..48154f7 100644
--- a/emu-x20.el
+++ b/emu-x20.el
@@ -74,6 +74,17 @@
 		  eol-type nil)))
 
 
+;;; @ CCL
+;;;
+
+(defun make-ccl-coding-system (name mnemonic doc-string decoder encoder)
+  (make-coding-system
+   name 'ccl doc-string
+   (list 'mnemonic (char-to-string mnemonic)
+         'decode (symbol-value decoder)
+         'encode (symbol-value encoder))))
+
+
 ;;; @ without code-conversion
 ;;;