diff options
author | Richard M. Stallman <rms@gnu.org> | 1997-06-02 00:22:49 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1997-06-02 00:22:49 +0000 |
commit | 93da5d25e2a9523faa81baa4d7e3cccfc378c3d4 (patch) | |
tree | 331bac1b4a673a93a7f2b93b49a98094c8c0a536 /src/alloc.c | |
parent | 70323c8e6c0814e3076eca44fe5ee93c3c4aa001 (diff) | |
download | emacs-93da5d25e2a9523faa81baa4d7e3cccfc378c3d4.tar.gz |
(Fmake_byte_code): Set val from p, not from val.
(make_event_array): Convert nargs to Lisp_Object.
Diffstat (limited to 'src/alloc.c')
-rw-r--r-- | src/alloc.c | 4 |
1 files 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]); |