X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fcallint.c;h=fa89f168329c76bad028d587b33c1f229a6b3df2;hb=8bbcb26990f395e98cf627c5cb1c52c014bd451d;hp=b3abc7b063051dc19d99d8dc522ff11a36995d8f;hpb=98a6e4055a1fa624c592ac06f79287d55196ca37;p=chise%2Fxemacs-chise.git.1

diff --git a/src/callint.c b/src/callint.c
index b3abc7b..fa89f16 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -37,7 +37,7 @@ Boston, MA 02111-1307, USA.  */
 #include "insdel.h"
 #include "window.h"
 
-extern int num_input_chars;
+extern Charcount num_input_chars;
 
 Lisp_Object Vcurrent_prefix_arg;
 Lisp_Object Qcall_interactively;
@@ -307,8 +307,9 @@ when reading the arguments.
 
       if (EQ (funcar, Qautoload))
 	{
-	  struct gcpro gcpro1, gcpro2;
-	  GCPRO2 (function, prefix);
+	  struct gcpro gcpro1;
+	  GCPRO1 (prefix);
+	  /* do_autoload GCPROs both arguments */
 	  do_autoload (fun, function);
 	  UNGCPRO;
 	  goto retry;
@@ -573,7 +574,7 @@ when reading the arguments.
 	int prompt_length;
 	prompt_length = ((prompt_limit)
 			 ? (prompt_limit - prompt_start)
-			 : strlen (prompt_start));
+			 : (int) strlen (prompt_start));
 	if (prompt_limit && prompt_limit[1] == 0)
 	  {
 	    prompt_limit = 0;	/* "sfoo:\n" -- strip tailing return */