Mercurial > emacs

changeset 18104:b2a669ef69b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 8e1553706b3d
children bc690c1e1950
files src/alloc.c
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/alloc.c	Mon Jun 02 00:09:40 1997 +0000
+++ b/src/alloc.c	Mon Jun 02 00:22:49 1997 +0000
@@ -876,7 +876,7 @@
 	args[index] = Fpurecopy (args[index]);
       p->contents[index] = args[index];
     }
-  XSETCOMPILED (val, val);
+  XSETCOMPILED (val, p);
   return val;
 }
 
@@ -1274,7 +1274,7 @@
   {
     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]);