Mercurial > hg > xemacs-beta

diff src/file-coding.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents 34ca43a57692
children 13a418960a88
line wrap: on
line diff
--- a/src/file-coding.c	Mon Sep 20 19:11:29 2004 +0000
+++ b/src/file-coding.c	Mon Sep 20 19:20:08 2004 +0000
@@ -536,7 +536,7 @@
 
 static void
 print_coding_system (Lisp_Object obj, Lisp_Object printcharfun,
-		     int escapeflag)
+		     int UNUSED (escapeflag))
 {
   Lisp_Coding_System *c = XCODING_SYSTEM (obj);
   if (print_readably)
@@ -553,7 +553,7 @@
 
 static void
 print_coding_system_in_print_method (Lisp_Object cs, Lisp_Object printcharfun,
-				     int escapeflag)
+				     int UNUSED (escapeflag))
 {
   write_fmt_string_lisp (printcharfun, "%s[", 1, XCODING_SYSTEM_NAME (cs));
   print_coding_system_properties (cs, printcharfun);
@@ -894,7 +894,7 @@
 };
 
 static int
-add_coding_system_to_list_mapper (Lisp_Object key, Lisp_Object value,
+add_coding_system_to_list_mapper (Lisp_Object key, Lisp_Object UNUSED (value),
 				  void *coding_system_list_closure)
 {
   /* This function can GC */
@@ -1695,7 +1695,7 @@
 
 /* A maphash function, for removing dangling coding system aliases. */
 static int
-dangling_coding_system_alias_p (Lisp_Object alias,
+dangling_coding_system_alias_p (Lisp_Object UNUSED (alias),
 				Lisp_Object aliasee,
 				void *dangling_aliases)
 {
@@ -1729,7 +1729,7 @@
 */
        (alias, aliasee))
 {
-  Lisp_Object real_coding_system, probe;
+  Lisp_Object probe;
 
   CHECK_SYMBOL (alias);
 
@@ -1776,7 +1776,7 @@
     aliasee = XCODING_SYSTEM_NAME (aliasee);
 
   /* Checks that aliasee names a coding-system */
-  real_coding_system = Fget_coding_system (aliasee);
+  (void) Fget_coding_system (aliasee);
 
   /* Check for coding system alias loops */
   if (EQ (alias, aliasee))
@@ -3006,8 +3006,8 @@
 };
 
 static void
-no_conversion_detect (struct detection_state *st, const UExtbyte *src,
-		      Bytecount n)
+no_conversion_detect (struct detection_state *st, const UExtbyte *UNUSED (src),
+		      Bytecount UNUSED (n))
 {
   /* Hack until we get better handling of this stuff! */
   DET_RESULT (st, no_conversion) = DET_SLIGHTLY_LIKELY;
@@ -3056,7 +3056,8 @@
 DEFINE_CODING_SYSTEM_TYPE_WITH_DATA (convert_eol);
 
 static void
-convert_eol_print (Lisp_Object cs, Lisp_Object printcharfun, int escapeflag)
+convert_eol_print (Lisp_Object cs, Lisp_Object printcharfun,
+		   int UNUSED (escapeflag))
 {
   struct convert_eol_coding_system *data =
     XCODING_SYSTEM_TYPE_DATA (cs, convert_eol);
@@ -3070,7 +3071,7 @@
 }
 
 static enum source_sink_type
-convert_eol_conversion_end_type (Lisp_Object codesys)
+convert_eol_conversion_end_type (Lisp_Object UNUSED (codesys))
 {
   return DECODES_CHARACTER_TO_CHARACTER;
 }
@@ -4312,7 +4313,7 @@
 DEFINE_CODING_SYSTEM_TYPE (internal);
 
 static Bytecount
-internal_convert (struct coding_stream *str, const UExtbyte *src,
+internal_convert (struct coding_stream *UNUSED (str), const UExtbyte *src,
 		  unsigned_char_dynarr *dst, Bytecount n)
 {
   Bytecount orign = n;