* pccl-om.el (make-ccl-coding-system): Enclose with `eval-and-compile'.

diff --git a/ChangeLog b/ChangeLog
index 2155bc9..c13612a 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-09-17  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+       * pccl-om.el (make-ccl-coding-system): Enclose with
+       `eval-and-compile'.
+
 1998-09-17  MORIOKA Tomohiko  <morioka@jaist.ac.jp>
 
        * poe.el (unless): New macro.

diff --git a/pccl-om.el b/pccl-om.el
index 68510ec..609eaa9 100644 (file)
--- 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