From: akr <akr>
Date: Fri, 13 Nov 1998 02:10:14 +0000 (+0000)
Subject: * mel-b-ccl.el (mel-ccl-decode-b): Use `define-ccl-program'
X-Git-Tag: chao-1_12-199811302358
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ea0cb178e98b774b2975cbe608e7923359c97911;p=elisp%2Fflim.git

* mel-b-ccl.el (mel-ccl-decode-b): Use `define-ccl-program'
instead of `define-long-ccl-program'.
---

diff --git a/ChangeLog b/ChangeLog
index 1878246..31176ef 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1998-11-13  Tanaka Akira  <akr@jaist.ac.jp>
+
+	* mel-b-ccl.el (mel-ccl-decode-b): Use `define-ccl-program'
+	instead of `define-long-ccl-program'.
+
 1998-11-12  Tanaka Akira  <akr@jaist.ac.jp>
 
 	* FLIM-ELS: (flim-modules): Install mel-b-ccl.el for
diff --git a/mel-b-ccl.el b/mel-b-ccl.el
index 7049b1e..fd84a78 100644
--- a/mel-b-ccl.el
+++ b/mel-b-ccl.el
@@ -144,7 +144,7 @@ abcdefghijklmnopqrstuvwxyz\
 )
 
 (if-broken ccl-cascading-read
-    (define-long-ccl-program mel-ccl-decode-b
+    (define-ccl-program mel-ccl-decode-b
       `(1
 	(loop
 	 (loop
@@ -354,14 +354,14 @@ abcdefghijklmnopqrstuvwxyz\
     ))
 )
 
-(define-long-ccl-program mel-ccl-encode-b
+(define-ccl-program mel-ccl-encode-b
   (mel-ccl-encode-base64-generic))
 
 ;; 19 * 4 = 76
-(define-long-ccl-program mel-ccl-encode-base64-crlf-crlf
+(define-ccl-program mel-ccl-encode-base64-crlf-crlf
   (mel-ccl-encode-base64-generic 19 t))
 
-(define-long-ccl-program mel-ccl-encode-base64-crlf-lf
+(define-ccl-program mel-ccl-encode-base64-crlf-lf
   (mel-ccl-encode-base64-generic 19 nil))