From: yamaoka <yamaoka>
Date: Mon, 20 Dec 1999 01:42:02 +0000 (+0000)
Subject: (base64-encode-string): Allow the optional second arg `no-line-break'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=22c16529d56962efa109f74a13de267e4cc69653;p=elisp%2Fflim.git

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

diff --git a/ChangeLog b/ChangeLog
index 3bed761..a960078 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+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-14  MORIOKA Tomohiko  <tomo@m17n.org>
 
 	* CLIME: Version 1.13.6 (Nakanosh-Dò)-A released.
diff --git a/mel-b-el.el b/mel-b-el.el
index 4238015..eb153b9 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