Mercurial > hg > xemacs-beta

diff src/fns.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 61855263cb07
children ecf1ebac70d8
line wrap: on
line diff
--- a/src/fns.c	Mon Sep 20 19:11:29 2004 +0000
+++ b/src/fns.c	Mon Sep 20 19:20:08 2004 +0000
@@ -65,13 +65,14 @@
 Lisp_Object safe_copy_tree (Lisp_Object arg, Lisp_Object vecp, int depth);
 
 static Lisp_Object
-mark_bit_vector (Lisp_Object obj)
+mark_bit_vector (Lisp_Object UNUSED (obj))
 {
   return Qnil;
 }
 
 static void
-print_bit_vector (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
+print_bit_vector (Lisp_Object obj, Lisp_Object printcharfun,
+		  int UNUSED (escapeflag))
 {
   Elemcount i;
   Lisp_Bit_Vector *v = XBIT_VECTOR (obj);
@@ -94,7 +95,7 @@
 }
 
 static int
-bit_vector_equal (Lisp_Object obj1, Lisp_Object obj2, int depth)
+bit_vector_equal (Lisp_Object obj1, Lisp_Object obj2, int UNUSED (depth))
 {
   Lisp_Bit_Vector *v1 = XBIT_VECTOR (obj1);
   Lisp_Bit_Vector *v2 = XBIT_VECTOR (obj2);
@@ -106,7 +107,7 @@
 }
 
 static Hashcode
-bit_vector_hash (Lisp_Object obj, int depth)
+bit_vector_hash (Lisp_Object obj, int UNUSED (depth))
 {
   Lisp_Bit_Vector *v = XBIT_VECTOR (obj);
   return HASH2 (bit_vector_length (v),