(Fbase64_encode_string): New optional argument `NO_LINE_BREAK'.

diff --git a/src/fns.c b/src/fns.c
index 821ee247926f9a0d2e2e8e37a2fe4bd1e3e84929..b6821a83d32e9ce2f70c694811ff1276c4cf487f 100644 (file)
--- 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 ();