From: yamaoka <yamaoka>
Date: Fri, 18 Sep 1998 08:16:11 +0000 (+0000)
Subject: * pccl-om.el (make-ccl-coding-system): Enclose with `eval-and-compile'.
X-Git-Tag: poe-199811302358~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=88eb0e47ae0058d68b6068e18f4e8c6c6766facc;p=elisp%2Fapel.git

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

diff --git a/ChangeLog b/ChangeLog
index 2155bc9..c13612a 100644
--- 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
--- 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