* callint.c: conform to C89 pointer rules

diff --git a/src/ChangeLog b/src/ChangeLog
index 9d2e9cb4a2f432bc6969e825f11578e14e2932d2..d8fd7f6130ce357b4d11759c315030ee21b55a15 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -15,6 +15,7 @@
        * editfns.c (init_editfns, Fchar_to_string, Fbyte_to_string):
        (Fuser_full_name, Fsubst_char_in_region, Ftranslate_region_internal):
        (Fformat): Likewise.
+       * callint.c (Fcall_interactively): Likewise.
 
 2011-02-06  Paul Eggert  <eggert@cs.ucla.edu>
 

diff --git a/src/callint.c b/src/callint.c
index 6fd3dc082fa9e451ccc9b3b8762daf2e4cac1105..2e4314295ff60ed591660885249a9793841325d2 100644 (file)
--- a/src/callint.c
+++ b/src/callint.c
@@ -257,8 +257,8 @@ invoke it.  If KEYS is omitted or nil, the return value of
   int next_event;
 
   Lisp_Object prefix_arg;
-  unsigned char *string;
-  unsigned char *tem;
+  char *string;
+  char *tem;
 
   /* If varies[i] > 0, the i'th argument shouldn't just have its value
      in this call quoted in the command history.  It should be
@@ -325,8 +325,8 @@ invoke it.  If KEYS is omitted or nil, the return value of
     {
       /* Make a copy of string so that if a GC relocates specs,
         `string' will still be valid.  */
-      string = (unsigned char *) alloca (SBYTES (specs) + 1);
-      memcpy (string, SDATA (specs), SBYTES (specs) + 1);
+      string = (char *) alloca (SBYTES (specs) + 1);
+      memcpy (string, SSDATA (specs), SBYTES (specs) + 1);
     }
   else
     {
@@ -389,7 +389,7 @@ invoke it.  If KEYS is omitted or nil, the return value of
            {
              if (!NILP (record_flag))
                {
-                 unsigned char *p = string;
+                 char *p = string;
                  while (*p)
                    {
                      if (! (*p == 'r' || *p == 'p' || *p == 'P'
@@ -449,7 +449,7 @@ invoke it.  If KEYS is omitted or nil, the return value of
        j += 2;
       else
        j++;
-      tem = (unsigned char *) strchr (tem, '\n');
+      tem = strchr (tem, '\n');
       if (tem)
        ++tem;
       else
@@ -780,7 +780,7 @@ invoke it.  If KEYS is omitted or nil, the return value of
        case '+':
        default:
          error ("Invalid control letter `%c' (%03o) in interactive calling string",
-                *tem, *tem);
+                *tem, (unsigned char) *tem);
        }
 
       if (varies[i] == 0)
@@ -789,9 +789,9 @@ invoke it.  If KEYS is omitted or nil, the return value of
       if (NILP (visargs[i]) && STRINGP (args[i]))
        visargs[i] = args[i];
 
-      tem = (unsigned char *) strchr (tem, '\n');
+      tem = strchr (tem, '\n');
       if (tem) tem++;
-      else tem = (unsigned char *) "";
+      else tem = "";
     }
   unbind_to (speccount, Qnil);