From 08336f0229ef7233b770c16046ef5b9f8b9c004e Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 17 Sep 1998 04:29:02 +0000 Subject: [PATCH] (make-ccl-coding-system): New function. --- emu-x20.el | 11 +++++++++++ 1 file changed, 11 insertions(+) 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 ;;; -- 1.7.10.4