From 50aee051c38a6faa6e67f014bbf9499fd2b61448 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 2 Jun 1997 00:22:49 +0000 Subject: [PATCH] (Fmake_byte_code): Set val from p, not from val. (make_event_array): Convert nargs to Lisp_Object. --- src/alloc.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/alloc.c b/src/alloc.c index c3fbc8b633c..ed57954cf17 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -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]); -- 2.39.5