aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorJuanma Barranquero2011-03-26 03:48:03 +0100
committerJuanma Barranquero2011-03-26 03:48:03 +0100
commit59eb0929f7ae29f9c970c4188c90c1b460e820a9 (patch)
treea06575236eb8a187ffbd35e2fbda11a301c573b0 /src
parentf868cd8a7186e86e4c9bbd52de2aca99fa94648f (diff)
downloademacs-59eb0929f7ae29f9c970c4188c90c1b460e820a9.tar.gz
emacs-59eb0929f7ae29f9c970c4188c90c1b460e820a9.zip
src/*.c: Fix more warnings about unused parameters.
* keymap.c (describe_vector): Remove parameters `indices' and `char_table_depth', unused since 2002-03-01T01:43:26Z!handa@m17n.org. (describe_map, Fdescribe_vector): Adjust calls to `describe_vector'. * w32.c (read_unc_volume): Use parameter `henum', instead of global variable `wget_enum_handle'.
Diffstat (limited to 'src')
-rw-r--r--src/ChangeLog7
-rw-r--r--src/keymap.c13
-rw-r--r--src/w32.c6
3 files changed, 14 insertions, 12 deletions
diff --git a/src/ChangeLog b/src/ChangeLog
index 69e850610bc..cc40c863e97 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,12 @@
12011-03-26 Juanma Barranquero <lekktu@gmail.com> 12011-03-26 Juanma Barranquero <lekktu@gmail.com>
2 2
3 * w32.c (read_unc_volume): Use parameter `henum', instead of
4 global variable `wget_enum_handle'.
5
6 * keymap.c (describe_vector): Remove parameters `indices' and
7 `char_table_depth', unused since 2002-03-01T01:43:26Z!handa@m17n.org.
8 (describe_map, Fdescribe_vector): Adjust calls to `describe_vector'.
9
3 * keyboard.h (timer_check, show_help_echo): Remove unused parameters. 10 * keyboard.h (timer_check, show_help_echo): Remove unused parameters.
4 11
5 * keyboard.c (timer_check): Remove parameter `do_it_now', 12 * keyboard.c (timer_check): Remove parameter `do_it_now',
diff --git a/src/keymap.c b/src/keymap.c
index 06968a0d944..440df06ba4e 100644
--- a/src/keymap.c
+++ b/src/keymap.c
@@ -81,8 +81,7 @@ static void describe_map (Lisp_Object, Lisp_Object,
81 int, Lisp_Object, Lisp_Object*, int, int); 81 int, Lisp_Object, Lisp_Object*, int, int);
82static void describe_vector (Lisp_Object, Lisp_Object, Lisp_Object, 82static void describe_vector (Lisp_Object, Lisp_Object, Lisp_Object,
83 void (*) (Lisp_Object, Lisp_Object), int, 83 void (*) (Lisp_Object, Lisp_Object), int,
84 Lisp_Object, Lisp_Object, int *, 84 Lisp_Object, Lisp_Object, int, int);
85 int, int, int);
86static void silly_event_symbol_error (Lisp_Object); 85static void silly_event_symbol_error (Lisp_Object);
87static Lisp_Object get_keyelt (Lisp_Object, int); 86static Lisp_Object get_keyelt (Lisp_Object, int);
88 87
@@ -3353,7 +3352,7 @@ describe_map (Lisp_Object map, Lisp_Object prefix,
3353 || CHAR_TABLE_P (XCAR (tail))) 3352 || CHAR_TABLE_P (XCAR (tail)))
3354 describe_vector (XCAR (tail), 3353 describe_vector (XCAR (tail),
3355 prefix, Qnil, elt_describer, partial, shadow, map, 3354 prefix, Qnil, elt_describer, partial, shadow, map,
3356 (int *)0, 0, 1, mention_shadow); 3355 1, mention_shadow);
3357 else if (CONSP (XCAR (tail))) 3356 else if (CONSP (XCAR (tail)))
3358 { 3357 {
3359 int this_shadowed = 0; 3358 int this_shadowed = 0;
@@ -3506,7 +3505,7 @@ DESCRIBER is the output function used; nil means use `princ'. */)
3506 specbind (Qstandard_output, Fcurrent_buffer ()); 3505 specbind (Qstandard_output, Fcurrent_buffer ());
3507 CHECK_VECTOR_OR_CHAR_TABLE (vector); 3506 CHECK_VECTOR_OR_CHAR_TABLE (vector);
3508 describe_vector (vector, Qnil, describer, describe_vector_princ, 0, 3507 describe_vector (vector, Qnil, describer, describe_vector_princ, 0,
3509 Qnil, Qnil, (int *)0, 0, 0, 0); 3508 Qnil, Qnil, 0, 0);
3510 3509
3511 return unbind_to (count, Qnil); 3510 return unbind_to (count, Qnil);
3512} 3511}
@@ -3539,9 +3538,6 @@ DESCRIBER is the output function used; nil means use `princ'. */)
3539 3538
3540 ARGS is simply passed as the second argument to ELT_DESCRIBER. 3539 ARGS is simply passed as the second argument to ELT_DESCRIBER.
3541 3540
3542 INDICES and CHAR_TABLE_DEPTH are ignored. They will be removed in
3543 the near future.
3544
3545 KEYMAP_P is 1 if vector is known to be a keymap, so map ESC to M-. 3541 KEYMAP_P is 1 if vector is known to be a keymap, so map ESC to M-.
3546 3542
3547 ARGS is simply passed as the second argument to ELT_DESCRIBER. */ 3543 ARGS is simply passed as the second argument to ELT_DESCRIBER. */
@@ -3550,8 +3546,7 @@ static void
3550describe_vector (Lisp_Object vector, Lisp_Object prefix, Lisp_Object args, 3546describe_vector (Lisp_Object vector, Lisp_Object prefix, Lisp_Object args,
3551 void (*elt_describer) (Lisp_Object, Lisp_Object), 3547 void (*elt_describer) (Lisp_Object, Lisp_Object),
3552 int partial, Lisp_Object shadow, Lisp_Object entire_map, 3548 int partial, Lisp_Object shadow, Lisp_Object entire_map,
3553 int *indices, int char_table_depth, int keymap_p, 3549 int keymap_p, int mention_shadow)
3554 int mention_shadow)
3555{ 3550{
3556 Lisp_Object definition; 3551 Lisp_Object definition;
3557 Lisp_Object tem2; 3552 Lisp_Object tem2;
diff --git a/src/w32.c b/src/w32.c
index bbf777b2e1d..5643b3f073e 100644
--- a/src/w32.c
+++ b/src/w32.c
@@ -2376,8 +2376,8 @@ readdir (DIR *dirp)
2376 if (wnet_enum_handle != INVALID_HANDLE_VALUE) 2376 if (wnet_enum_handle != INVALID_HANDLE_VALUE)
2377 { 2377 {
2378 if (!read_unc_volume (wnet_enum_handle, 2378 if (!read_unc_volume (wnet_enum_handle,
2379 dir_find_data.cFileName, 2379 dir_find_data.cFileName,
2380 MAX_PATH)) 2380 MAX_PATH))
2381 return NULL; 2381 return NULL;
2382 } 2382 }
2383 /* If we aren't dir_finding, do a find-first, otherwise do a find-next. */ 2383 /* If we aren't dir_finding, do a find-first, otherwise do a find-next. */
@@ -2487,7 +2487,7 @@ read_unc_volume (HANDLE henum, char *readbuf, int size)
2487 2487
2488 count = 1; 2488 count = 1;
2489 buffer = alloca (bufsize); 2489 buffer = alloca (bufsize);
2490 result = WNetEnumResource (wnet_enum_handle, &count, buffer, &bufsize); 2490 result = WNetEnumResource (henum, &count, buffer, &bufsize);
2491 if (result != NO_ERROR) 2491 if (result != NO_ERROR)
2492 return NULL; 2492 return NULL;
2493 2493