From: yamaoka <yamaoka>
Date: Mon, 20 Dec 1999 01:41:52 +0000 (+0000)
Subject: (base64-encode-string): Allow the optional second arg `no-line-break'.
X-Git-Tag: chao-1_14_0~5
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=601df0f9be849ae46c02409c8d7204dabda65e48;p=elisp%2Fflim.git

(base64-encode-string): Allow the optional second arg `no-line-break'.
---

diff --git a/ChangeLog b/ChangeLog
index 418e9ae..5a163b5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+1999-12-20  Katsumi Yamaoka   <yamaoka@jpl.org>
+
+	* mel-b-el.el (base64-encode-string): Allow the optional second arg
+	`no-line-break'.
+
 1999-12-16  MORIOKA Tomohiko  <tomo@m17n.org>
 
 	* FLIM-ELS (flim-modules): Add `mmexternal'.
diff --git a/mel-b-el.el b/mel-b-el.el
index f661853..00e46fd 100644
--- a/mel-b-el.el
+++ b/mel-b-el.el
@@ -123,7 +123,7 @@ external decoder is called."
 		   (ash (logand (car pack) 3) 4))))
     buf))
 
-(defun-maybe base64-encode-string (string)
+(defun-maybe base64-encode-string (string &optional no-line-break)
   "Encode STRING to base64, and return the result."
   (let* ((len (length string))
 	 (b 0)(e 57)
@@ -135,7 +135,7 @@ external decoder is called."
 		     (function base64-encode-1)
 		     (pack-sequence (substring string b e) 3)
 		     "")
-		    "\n"))
+		    (if (not no-line-break) "\n")))
       (setq b e
 	    e (+ e 57)))
     (concat dest