(make-ccl-coding-system): New function.
authormorioka <morioka>
Thu, 17 Sep 1998 04:29:02 +0000 (04:29 +0000)
committermorioka <morioka>
Thu, 17 Sep 1998 04:29:02 +0000 (04:29 +0000)
emu-x20.el

index 82aa624..48154f7 100644 (file)
                  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
 ;;;