aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorPaul Eggert2011-02-06 19:09:32 -0800
committerPaul Eggert2011-02-06 19:09:32 -0800
commita2db99828caf787cfc6da0be36052e00e8851bb3 (patch)
tree48620ddbe401a9fa025e2605d73318c109e4b841 /src
parente7f8264d90384314a258fee88b2c010ac53dcd81 (diff)
downloademacs-a2db99828caf787cfc6da0be36052e00e8851bb3.tar.gz
emacs-a2db99828caf787cfc6da0be36052e00e8851bb3.zip
* callint.c: conform to C89 pointer rules
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog1
-rw-r--r--src/callint.c18
2 files changed, 10 insertions, 9 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 9d2e9cb4a2f..d8fd7f6130c 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -15,6 +15,7 @@
15 * editfns.c (init_editfns, Fchar_to_string, Fbyte_to_string): 15 * editfns.c (init_editfns, Fchar_to_string, Fbyte_to_string):
16 (Fuser_full_name, Fsubst_char_in_region, Ftranslate_region_internal): 16 (Fuser_full_name, Fsubst_char_in_region, Ftranslate_region_internal):
17 (Fformat): Likewise. 17 (Fformat): Likewise.
18 * callint.c (Fcall_interactively): Likewise.
18 19
192011-02-06 Paul Eggert <eggert@cs.ucla.edu> 202011-02-06 Paul Eggert <eggert@cs.ucla.edu>
20 21
diff --git a/src/callint.c b/src/callint.c
index 6fd3dc082fa..2e4314295ff 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -257,8 +257,8 @@ invoke it. If KEYS is omitted or nil, the return value of
257 int next_event; 257 int next_event;
258 258
259 Lisp_Object prefix_arg; 259 Lisp_Object prefix_arg;
260 unsigned char *string; 260 char *string;
261 unsigned char *tem; 261 char *tem;
262 262
263 /* If varies[i] > 0, the i'th argument shouldn't just have its value 263 /* If varies[i] > 0, the i'th argument shouldn't just have its value
264 in this call quoted in the command history. It should be 264 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
325 { 325 {
326 /* Make a copy of string so that if a GC relocates specs, 326 /* Make a copy of string so that if a GC relocates specs,
327 `string' will still be valid. */ 327 `string' will still be valid. */
328 string = (unsigned char *) alloca (SBYTES (specs) + 1); 328 string = (char *) alloca (SBYTES (specs) + 1);
329 memcpy (string, SDATA (specs), SBYTES (specs) + 1); 329 memcpy (string, SSDATA (specs), SBYTES (specs) + 1);
330 } 330 }
331 else 331 else
332 { 332 {
@@ -389,7 +389,7 @@ invoke it. If KEYS is omitted or nil, the return value of
389 { 389 {
390 if (!NILP (record_flag)) 390 if (!NILP (record_flag))
391 { 391 {
392 unsigned char *p = string; 392 char *p = string;
393 while (*p) 393 while (*p)
394 { 394 {
395 if (! (*p == 'r' || *p == 'p' || *p == 'P' 395 if (! (*p == 'r' || *p == 'p' || *p == 'P'
@@ -449,7 +449,7 @@ invoke it. If KEYS is omitted or nil, the return value of
449 j += 2; 449 j += 2;
450 else 450 else
451 j++; 451 j++;
452 tem = (unsigned char *) strchr (tem, '\n'); 452 tem = strchr (tem, '\n');
453 if (tem) 453 if (tem)
454 ++tem; 454 ++tem;
455 else 455 else
@@ -780,7 +780,7 @@ invoke it. If KEYS is omitted or nil, the return value of
780 case '+': 780 case '+':
781 default: 781 default:
782 error ("Invalid control letter `%c' (%03o) in interactive calling string", 782 error ("Invalid control letter `%c' (%03o) in interactive calling string",
783 *tem, *tem); 783 *tem, (unsigned char) *tem);
784 } 784 }
785 785
786 if (varies[i] == 0) 786 if (varies[i] == 0)
@@ -789,9 +789,9 @@ invoke it. If KEYS is omitted or nil, the return value of
789 if (NILP (visargs[i]) && STRINGP (args[i])) 789 if (NILP (visargs[i]) && STRINGP (args[i]))
790 visargs[i] = args[i]; 790 visargs[i] = args[i];
791 791
792 tem = (unsigned char *) strchr (tem, '\n'); 792 tem = strchr (tem, '\n');
793 if (tem) tem++; 793 if (tem) tem++;
794 else tem = (unsigned char *) ""; 794 else tem = "";
795 } 795 }
796 unbind_to (speccount, Qnil); 796 unbind_to (speccount, Qnil);
797 797