Mercurial > emacs
comparison src/alloc.c @ 18104:b2a669ef69b1
(Fmake_byte_code): Set val from p, not from val.
(make_event_array): Convert nargs to Lisp_Object.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 02 Jun 1997 00:22:49 +0000 |
| parents | 7a38a8767242 |
| children | 53b95f307c75 |
comparison
equal
deleted
inserted
replaced
| 18103:8e1553706b3d | 18104:b2a669ef69b1 |
|---|---|
| 874 { | 874 { |
| 875 if (!NILP (Vpurify_flag)) | 875 if (!NILP (Vpurify_flag)) |
| 876 args[index] = Fpurecopy (args[index]); | 876 args[index] = Fpurecopy (args[index]); |
| 877 p->contents[index] = args[index]; | 877 p->contents[index] = args[index]; |
| 878 } | 878 } |
| 879 XSETCOMPILED (val, val); | 879 XSETCOMPILED (val, p); |
| 880 return val; | 880 return val; |
| 881 } | 881 } |
| 882 | 882 |
| 883 /* Allocation of symbols. | 883 /* Allocation of symbols. |
| 884 Just like allocation of conses! | 884 Just like allocation of conses! |
| 1272 /* Since the loop exited, we know that all the things in it are | 1272 /* Since the loop exited, we know that all the things in it are |
| 1273 characters, so we can make a string. */ | 1273 characters, so we can make a string. */ |
| 1274 { | 1274 { |
| 1275 Lisp_Object result; | 1275 Lisp_Object result; |
| 1276 | 1276 |
| 1277 result = Fmake_string (nargs, make_number (0)); | 1277 result = Fmake_string (make_number (nargs), make_number (0)); |
| 1278 for (i = 0; i < nargs; i++) | 1278 for (i = 0; i < nargs; i++) |
| 1279 { | 1279 { |
| 1280 XSTRING (result)->data[i] = XINT (args[i]); | 1280 XSTRING (result)->data[i] = XINT (args[i]); |
| 1281 /* Move the meta bit to the right place for a string char. */ | 1281 /* Move the meta bit to the right place for a string char. */ |
| 1282 if (XINT (args[i]) & CHAR_META) | 1282 if (XINT (args[i]) & CHAR_META) |