From ea0cb178e98b774b2975cbe608e7923359c97911 Mon Sep 17 00:00:00 2001 From: akr Date: Fri, 13 Nov 1998 02:10:14 +0000 Subject: [PATCH] * mel-b-ccl.el (mel-ccl-decode-b): Use `define-ccl-program' instead of `define-long-ccl-program'. --- ChangeLog | 5 +++++ mel-b-ccl.el | 8 ++++---- 2 files changed, 9 insertions(+), 4 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1878246..31176ef 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,8 @@ +1998-11-13 Tanaka Akira + + * mel-b-ccl.el (mel-ccl-decode-b): Use `define-ccl-program' + instead of `define-long-ccl-program'. + 1998-11-12 Tanaka Akira * 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)) -- 1.7.10.4