From: morioka <morioka>
Date: Fri, 19 Jun 1998 21:38:34 +0000 (+0000)
Subject: (base64-internal-decode-string): Renamed from
X-Git-Tag: flim-1_5_0~41
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cea3b3e3aebf6721624f40f3d23bfb56f299848b;p=elisp%2Fflim.git

(base64-internal-decode-string): Renamed from
`base64-internal-decode-string'.
(base64-decode-string): New alias for `base64-internal-decode-string'.
---

diff --git a/mel-b.el b/mel-b.el
index 9a50910..dd59d7e 100644
--- a/mel-b.el
+++ b/mel-b.el
@@ -149,7 +149,7 @@ external decoder is called.")
 			    ))
       )))
 
-(defun base64-decode-string (string)
+(defun base64-internal-decode-string (string)
   "Decode STRING which is encoded in base64, and return the result."
   (let ((len (length string))
 	(i 0)
@@ -188,6 +188,8 @@ external decoder is called.")
 		    ))))))))))
     dest))
 
+(defalias 'base64-decode-string 'base64-internal-decode-string)
+
 
 ;;; @ base64 encoder/decoder for region
 ;;;
@@ -210,7 +212,7 @@ external decoder is called.")
     (let ((str (buffer-substring beg end)))
       (delete-region beg end)
       (goto-char beg)
-      (insert (base64-decode-string str)))))
+      (insert (base64-internal-decode-string str)))))
 
 (defun base64-external-encode-region (beg end)
   (save-excursion