Mercurial > emacs

diff src/fns.c @ 18613:614b916ff5bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bugs with inappropriate mixing of Lisp_Object with int.
author Richard M. Stallman <rms@gnu.org>
date Fri, 04 Jul 1997 20:44:52 +0000
parents 35a263e545b3
children 186f1b58028d
line wrap: on
line diff
--- a/src/fns.c	Fri Jul 04 20:43:49 1997 +0000
+++ b/src/fns.c	Fri Jul 04 20:44:52 1997 +0000
@@ -584,7 +584,7 @@
     size = XVECTOR (string)->size;
 
   if (NILP (to))
-    to = size;
+    XSETINT (to, size);
   else
     CHECK_NUMBER (to, 2);
 
@@ -1185,6 +1185,8 @@
   return 0;
 }
 
+extern Lisp_Object Fmake_char_internal ();
+
 DEFUN ("fillarray", Ffillarray, Sfillarray, 2, 2, 0,
   "Store each element of ARRAY with ITEM.\n\
 ARRAY is a vector, string, char-table, or bool-vector.")