comparison src/fns.c @ 24334:c56b72e5f29d

(Fbase64_encode_string): New optional argument `NO_LINE_BREAK'.

24333:03cf9e15c988

  /* We return the length of the encoded text. */
  return make_number (encoded_length);
}

DEFUN ("base64-encode-string", Fbase64_encode_string, Sbase64_encode_string,
       1, 1, 0,
       "Base64-encode STRING and return the result.")
     (string)
     Lisp_Object string;
{
  int allength, length, encoded_length;
  char *encoded;
  Lisp_Object encoded_string;

    encoded = (char *) alloca (allength);
  else
    encoded = (char *) xmalloc (allength);

  encoded_length = base64_encode_1 (XSTRING (string)->data,
				    encoded, length, 0);
  if (encoded_length > allength)
    abort ();

  encoded_string = make_unibyte_string (encoded, encoded_length);
  if (allength > MAX_ALLOCA)

24334:c56b72e5f29d

  /* We return the length of the encoded text. */
  return make_number (encoded_length);
}

DEFUN ("base64-encode-string", Fbase64_encode_string, Sbase64_encode_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;
  char *encoded;
  Lisp_Object encoded_string;

    encoded = (char *) alloca (allength);
  else
    encoded = (char *) xmalloc (allength);

  encoded_length = base64_encode_1 (XSTRING (string)->data,
				    encoded, length, NILP (no_line_break));
  if (encoded_length > allength)
    abort ();

  encoded_string = make_unibyte_string (encoded, encoded_length);
  if (allength > MAX_ALLOCA)