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 | 50aee051c38a6faa6e67f014bbf9499fd2b61448 (patch) | |
tree | ae57aa0f310c870676d7fcd2c865fcf6c1dd060b /src/alloc.c | |
parent | 6538ee2e81fe9297c3a89dcc039a885c815b263b (diff) | |
download | emacs-50aee051c38a6faa6e67f014bbf9499fd2b61448.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]); |