* 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 (file)
--- 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 (file)
--- 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))