From 88eb0e47ae0058d68b6068e18f4e8c6c6766facc Mon Sep 17 00:00:00 2001 From: yamaoka Date: Fri, 18 Sep 1998 08:16:11 +0000 Subject: [PATCH] * pccl-om.el (make-ccl-coding-system): Enclose with `eval-and-compile'. --- ChangeLog | 5 +++++ pccl-om.el | 18 ++++++++++-------- 2 files changed, 15 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 2155bc9..c13612a 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-09-17 Katsumi Yamaoka + + * pccl-om.el (make-ccl-coding-system): Enclose with + `eval-and-compile'. + 1998-09-17 MORIOKA Tomohiko * poe.el (unless): New macro. diff --git a/pccl-om.el b/pccl-om.el index 68510ec..609eaa9 100644 --- a/pccl-om.el +++ b/pccl-om.el @@ -38,15 +38,17 @@ Otherwise nil (20.2 without ExCCL or former). Because emu provides functions accepting symbol as CCL program, user programs should not refer this variable.") -(defun make-ccl-coding-system - (coding-system mnemonic doc-string decoder encoder) - "Define a new CODING-SYSTEM (symbol) by CCL programs +(eval-and-compile + (defun make-ccl-coding-system + (coding-system mnemonic doc-string decoder encoder) + "Define a new CODING-SYSTEM (symbol) by CCL programs DECODER (symbol) and ENCODER (symbol)." - (setq decoder (symbol-value decoder) - encoder (symbol-value encoder)) - (make-coding-system coding-system 4 mnemonic doc-string - nil ; Mule takes one more optional argument: EOL-TYPE. - (cons decoder encoder))) + (setq decoder (symbol-value decoder) + encoder (symbol-value encoder)) + (make-coding-system coding-system 4 mnemonic doc-string + nil ; Mule takes one more optional argument: EOL-TYPE. + (cons decoder encoder))) + ) (eval-when-compile (define-ccl-program test-ccl-eof-block -- 1.7.10.4