From: morioka <morioka>
Date: Wed, 16 Sep 1998 04:03:42 +0000 (+0000)
Subject: (base64-decode-string!): Renamed from
X-Git-Tag: flim-1_10_0-pre1~8
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a76d391ee5a79f5ea748227bbc39597992ac96b8;p=elisp%2Fflim.git

(base64-decode-string!): Renamed from
`base64-internal-decode-string!'.
---

diff --git a/mel-b.el b/mel-b.el
index 922d290..19d9c02 100644
--- a/mel-b.el
+++ b/mel-b.el
@@ -189,7 +189,7 @@ external decoder is called."
 (defun base64-internal-decode-string (string)
   (base64-internal-decode string (make-string (length string) 0)))
 
-(defsubst base64-internal-decode-string! (string)
+(defsubst base64-decode-string! (string)
   (base64-internal-decode string string))
 
 (defun base64-internal-decode-region (beg end)
@@ -197,10 +197,10 @@ external decoder is called."
     (let ((str (buffer-substring beg end)))
       (delete-region beg end)
       (goto-char beg)
-      (insert (base64-internal-decode-string! str)))))
+      (insert (base64-decode-string! str)))))
 
 
-;;; @ base64 encoder/decoder for region
+;;; @ external encoder/decoder
 ;;;
 
 (defun base64-external-encode-region (beg end)
@@ -237,6 +237,9 @@ external decoder is called."
     (buffer-string)))
 
 
+;;; @ application interfaces
+;;;
+
 (defun base64-encode-region (start end)
   "Encode current region by base64.
 START and END are buffer positions.
@@ -279,9 +282,6 @@ metamail or XEmacs package)."
     (base64-internal-decode-string string)))
 
 
-;;; @ base64 encoder/decoder for file
-;;;
-
 (defun base64-insert-encoded-file (filename)
   "Encode contents of file FILENAME to base64, and insert the result.
 It calls external base64 encoder specified by
@@ -321,6 +321,7 @@ START and END are buffer positions."
       (with-temp-buffer
 	(insert (base64-internal-decode-string str))
 	(write-region-as-binary (point-min) (point-max) filename)))))
+
        
 ;;; @ etc
 ;;;