Commit 50aee051 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fmake_byte_code): Set val from p, not from val.

(make_event_array): Convert nargs to Lisp_Object.
parent 6538ee2e
......@@ -876,7 +876,7 @@ significance.")
args[index] = Fpurecopy (args[index]);
p->contents[index] = args[index];
}
XSETCOMPILED (val, val);
XSETCOMPILED (val, p);
return val;
}
......@@ -1274,7 +1274,7 @@ make_event_array (nargs, args)
{
Lisp_Object result;
result = Fmake_string (nargs, make_number (0));
result = Fmake_string (make_number (nargs), make_number (0));
for (i = 0; i < nargs; i++)
{
XSTRING (result)->data[i] = XINT (args[i]);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment