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

[Kenichi Handa]

Index: emacs/src/doprnt.c
diff -c emacs/src/doprnt.c:1.37 emacs/src/doprnt.c:1.38
*** emacs/src/doprnt.c:1.37     Fri Jan 19 00:22:51 2001
--- emacs/src/doprnt.c  Sun Jan 20 13:04:32 2002
***************
*** 221,227 ****
              {
                union { double d; char *half[2]; } u;
                if (cnt + 1 == nargs)
!                 error ("not enough arguments for format string");
                u.half[0] = args[cnt++];
                u.half[1] = args[cnt++];
                sprintf (sprintf_buffer, fmtcpy, u.d);
--- 221,227 ----
              {
                union { double d; char *half[2]; } u;
                if (cnt + 1 == nargs)
!                 error ("Not enough arguments for format string");
                u.half[0] = args[cnt++];
                u.half[1] = args[cnt++];
                sprintf (sprintf_buffer, fmtcpy, u.d);
***************
*** 234,240 ****
              string[-1] = 's';
            case 's':
              if (cnt == nargs)
!               error ("not enough arguments for format string");
              if (fmtcpy[1] != 's')
                minlen = atoi (&fmtcpy[1]);
              if (lispstrings)
--- 234,240 ----
              string[-1] = 's';
            case 's':
              if (cnt == nargs)
!               error ("Not enough arguments for format string");
              if (fmtcpy[1] != 's')
                minlen = atoi (&fmtcpy[1]);
              if (lispstrings)
***************
*** 297,303 ****
  
            case 'c':
              if (cnt == nargs)
!               error ("not enough arguments for format string");
              tem = CHAR_STRING ((int) (EMACS_INT) args[cnt], charbuf);
              string = charbuf;
              cnt++;
--- 297,303 ----
  
            case 'c':
              if (cnt == nargs)
!               error ("Not enough arguments for format string");
              tem = CHAR_STRING ((int) (EMACS_INT) args[cnt], charbuf);
              string = charbuf;
              cnt++;