# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 919239151 0
# Node ID c56b72e5f29d11fcdc9e49282782d6c5914fdccd
# Parent  03cf9e15c988020a21a0e1c50c82d6d833cde566
(Fbase64_encode_string): New optional argument `NO_LINE_BREAK'.

diff -r 03cf9e15c988 -r c56b72e5f29d src/fns.c
--- a/src/fns.c	Wed Feb 17 02:23:44 1999 +0000
+++ b/src/fns.c	Wed Feb 17 08:12:31 1999 +0000
@@ -2897,9 +2897,11 @@
 }
 
 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 @@
     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 ();