mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(error): Use doprnt. Make buffer larger as necessary.

Browse source
This commit is contained in:
Richard M. Stallman 1994-03-06 20:39:52 +00:00
parent 288f95bd03
commit 9125da08de
1 changed files with 28 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

30
src/eval.c
View file

@ -1302,12 +1302,38 @@ find_handler_clause (handlers, conditions, sig, data, debugger_value_ptr)
void
error (m, a1, a2, a3)
char *m;
char *a1, *a2, *a3;
{
char buf[200];
sprintf (buf, m, a1, a2, a3);
int size = 200;
int mlen;
char *buffer = buf;
char *args[3];
int allocated = 0;
Lisp_Object string;
args[0] = a1;
args[1] = a2;
args[2] = a3;
mlen = strlen (m);
while (1)
Fsignal (Qerror, Fcons (build_string (buf), Qnil));
{
int used = doprnt (buf, size, m, m + mlen, 3, args);
if (used < size)
break;
size *= 2;
if (allocated)
buffer = (char *) xrealloc (buffer, size);
buffer = (char *) xmalloc (size);
}
string = build_string (buf);
if (allocated)
free (buffer);
Fsignal (Qerror, Fcons (string, Qnil));
}
DEFUN ("commandp", Fcommandp, Scommandp, 1, 1, 0,