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

[Kim F . Storm]

Index: emacs/src/fileio.c
diff -c emacs/src/fileio.c:1.552 emacs/src/fileio.c:1.553
*** emacs/src/fileio.c:1.552    Sun Aug  7 12:33:16 2005
--- emacs/src/fileio.c  Mon Sep 12 13:42:49 2005
***************
*** 5769,5774 ****
--- 5769,5776 ----
    Lisp_Object args[3], msg;
    int i, nbytes;
    struct gcpro gcpro1;
+   char *msgbuf;
+   USE_SAFE_ALLOCA;
  
    ring_bell ();
  
***************
*** 5778,5790 ****
    msg = Fformat (3, args);
    GCPRO1 (msg);
    nbytes = SBYTES (msg);
  
    for (i = 0; i < 3; ++i)
      {
        if (i == 0)
!       message2 (SDATA (msg), nbytes, STRING_MULTIBYTE (msg));
        else
!       message2_nolog (SDATA (msg), nbytes, STRING_MULTIBYTE (msg));
        Fsleep_for (make_number (1), Qnil);
      }
  
--- 5780,5794 ----
    msg = Fformat (3, args);
    GCPRO1 (msg);
    nbytes = SBYTES (msg);
+   SAFE_ALLOCA (msgbuf, char *, nbytes);
+   bcopy (SDATA (msg), msgbuf, nbytes);
  
    for (i = 0; i < 3; ++i)
      {
        if (i == 0)
!       message2 (msgbuf, nbytes, STRING_MULTIBYTE (msg));
        else
!       message2_nolog (msgbuf, nbytes, STRING_MULTIBYTE (msg));
        Fsleep_for (make_number (1), Qnil);
      }