/[emacs]/emacs/src/doprnt.c
ViewVC logotype

Diff of /emacs/src/doprnt.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.37 by handa, Fri Jan 19 05:22:51 2001 UTC revision 1.38 by pj, Sun Jan 20 18:04:32 2002 UTC
# Line 221  doprnt1 (lispstrings, buffer, bufsize, f Line 221  doprnt1 (lispstrings, buffer, bufsize, f
221                {                {
222                  union { double d; char *half[2]; } u;                  union { double d; char *half[2]; } u;
223                  if (cnt + 1 == nargs)                  if (cnt + 1 == nargs)
224                    error ("not enough arguments for format string");                    error ("Not enough arguments for format string");
225                  u.half[0] = args[cnt++];                  u.half[0] = args[cnt++];
226                  u.half[1] = args[cnt++];                  u.half[1] = args[cnt++];
227                  sprintf (sprintf_buffer, fmtcpy, u.d);                  sprintf (sprintf_buffer, fmtcpy, u.d);
# Line 234  doprnt1 (lispstrings, buffer, bufsize, f Line 234  doprnt1 (lispstrings, buffer, bufsize, f
234                string[-1] = 's';                string[-1] = 's';
235              case 's':              case 's':
236                if (cnt == nargs)                if (cnt == nargs)
237                  error ("not enough arguments for format string");                  error ("Not enough arguments for format string");
238                if (fmtcpy[1] != 's')                if (fmtcpy[1] != 's')
239                  minlen = atoi (&fmtcpy[1]);                  minlen = atoi (&fmtcpy[1]);
240                if (lispstrings)                if (lispstrings)
# Line 297  doprnt1 (lispstrings, buffer, bufsize, f Line 297  doprnt1 (lispstrings, buffer, bufsize, f
297    
298              case 'c':              case 'c':
299                if (cnt == nargs)                if (cnt == nargs)
300                  error ("not enough arguments for format string");                  error ("Not enough arguments for format string");
301                tem = CHAR_STRING ((int) (EMACS_INT) args[cnt], charbuf);                tem = CHAR_STRING ((int) (EMACS_INT) args[cnt], charbuf);
302                string = charbuf;                string = charbuf;
303                cnt++;                cnt++;

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26