From 96f8df24014d9df03b10e99d0155f2e5ddf2f96f Mon Sep 17 00:00:00 2001 From: akr Date: Mon, 24 May 1999 13:22:32 +0000 Subject: [PATCH] * mel-b-ccl.el (base64-encode-string): New alias. (base64-encode-region): Ditto. (base64-decode-string): Ditto. (base64-decode-region): Ditto. --- ChangeLog | 7 +++++++ mel-b-ccl.el | 4 ++++ 2 files changed, 11 insertions(+) diff --git a/ChangeLog b/ChangeLog index 93a97e2..623e703 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,12 @@ 1999-05-24 Tanaka Akira + * mel-b-ccl.el (base64-encode-string): New alias. + (base64-encode-region): Ditto. + (base64-decode-string): Ditto. + (base64-decode-region): Ditto. + +1999-05-24 Tanaka Akira + * mel-b-ccl.el, mel-q-ccl.el: Sync up with doodle-1.12.5. 1999-05-24 MORIOKA Tomohiko diff --git a/mel-b-ccl.el b/mel-b-ccl.el index a0011dd..e0426b8 100644 --- a/mel-b-ccl.el +++ b/mel-b-ccl.el @@ -406,6 +406,7 @@ abcdefghijklmnopqrstuvwxyz\ (if no-line-break (decode-coding-string string 'mel-ccl-b-rev) (decode-coding-string string 'mel-ccl-base64-lf-rev))) + (defalias-maybe 'base64-encode-string 'base64-ccl-encode-string) (defun base64-ccl-encode-region (start end &optional no-line-break) "Encode region from START to END with base64 encoding." @@ -413,6 +414,7 @@ abcdefghijklmnopqrstuvwxyz\ (if no-line-break (decode-coding-region start end 'mel-ccl-b-rev) (decode-coding-region start end 'mel-ccl-base64-lf-rev))) + (defalias-maybe 'base64-encode-region 'base64-ccl-encode-region) (defun base64-ccl-insert-encoded-file (filename) "Encode contents of file FILENAME to base64, and insert the result." @@ -434,11 +436,13 @@ abcdefghijklmnopqrstuvwxyz\ (defun base64-ccl-decode-string (string) "Decode base64 encoded STRING" (encode-coding-string string 'mel-ccl-b-rev)) +(defalias-maybe 'base64-decode-string 'base64-ccl-decode-string) (defun base64-ccl-decode-region (start end) "Decode base64 encoded the region from START to END." (interactive "*r") (encode-coding-region start end 'mel-ccl-b-rev)) +(defalias-maybe 'base64-decode-region 'base64-ccl-decode-region) (defun base64-ccl-write-decoded-region (start end filename) "Decode the region from START to END and write out to FILENAME." -- 1.7.10.4