[Emacs-diffs] Changes to emacs/src/fns.c [lexbind]

[Miles Bader]

Index: emacs/src/fns.c
diff -c emacs/src/fns.c:1.314.2.10 emacs/src/fns.c:1.314.2.11
*** emacs/src/fns.c:1.314.2.10  Tue May 11 02:37:58 2004
--- emacs/src/fns.c     Tue Jul  6 10:17:20 2004
***************
*** 1049,1064 ****
       Lisp_Object string;
  {
    unsigned char *buf;
  
    if (! STRING_MULTIBYTE (string))
      return string;
  
!   buf = (unsigned char *) alloca (SCHARS (string));
  
    copy_text (SDATA (string), buf, SBYTES (string),
             1, 0);
  
!   return make_unibyte_string (buf, SCHARS (string));
  }
  
  DEFUN ("string-make-multibyte", Fstring_make_multibyte, 
Sstring_make_multibyte,
--- 1049,1072 ----
       Lisp_Object string;
  {
    unsigned char *buf;
+   Lisp_Object ret;
  
    if (! STRING_MULTIBYTE (string))
      return string;
  
!   /* We can not use alloca here, because string might be very long.
!      For example when selecting megabytes of text and then pasting it to
!      another application.  */
!   buf = (unsigned char *) xmalloc (SCHARS (string));
  
    copy_text (SDATA (string), buf, SBYTES (string),
             1, 0);
  
!   ret = make_unibyte_string (buf, SCHARS (string));
! 
!   xfree (buf);
! 
!   return ret;
  }
  
  DEFUN ("string-make-multibyte", Fstring_make_multibyte, 
Sstring_make_multibyte,