From: Kenichi Handa <handa@m17n.org>
Date: Wed, 17 Feb 1999 08:12:31 +0000 (+0000)
Subject: (Fbase64_encode_string): New optional argument `NO_LINE_BREAK'.
X-Git-Tag: emacs-20.4~615
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c22554ac395d5ec99b44575d8e3f3a109df6f921;p=emacs.git

(Fbase64_encode_string): New optional argument `NO_LINE_BREAK'.
---

diff --git a/src/fns.c b/src/fns.c
index 821ee247926..b6821a83d32 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2897,9 +2897,11 @@ into shorter lines.")
 }
 
 DEFUN ("base64-encode-string", Fbase64_encode_string, Sbase64_encode_string,
-       1, 1, 0,
-       "Base64-encode STRING and return the result.")
-     (string)
+       1, 2, 0,
+       "Base64-encode STRING and return the result.\n\
+Optional second argument NO-LINE-BREAK means do not break long lines\n\
+into shorter lines.")
+     (string, no_line_break)
      Lisp_Object string;
 {
   int allength, length, encoded_length;
@@ -2918,7 +2920,7 @@ DEFUN ("base64-encode-string", Fbase64_encode_string, Sbase64_encode_string,
     encoded = (char *) xmalloc (allength);
 
   encoded_length = base64_encode_1 (XSTRING (string)->data,
-				    encoded, length, 0);
+				    encoded, length, NILP (no_line_break));
   if (encoded_length > allength)
     abort ();