# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 937314565 0
# Node ID ba4e2a64166307cf454e5a084f21fd6575789343
# Parent  a6aabf050a60d93f2c4b7a9e779195da1c71d238
(SXHASH_COMBINE): Add missing parentheses.
(Fchar_table_range, Fset_char_table_default, mapcar1,
Fyes_or_no_p, sweep_weak_hash_tables): Remove unused variable(s).

diff -r a6aabf050a60 -r ba4e2a641663 src/fns.c
--- a/src/fns.c	Tue Sep 14 13:09:22 1999 +0000
+++ b/src/fns.c	Tue Sep 14 13:09:25 1999 +0000
@@ -1993,8 +1993,6 @@
   (char_table, range)
      Lisp_Object char_table, range;
 {
-  int i;
-
   CHECK_CHAR_TABLE (char_table, 0);
 
   if (EQ (range, Qnil))
@@ -2093,7 +2091,7 @@
   (char_table, ch, value)
      Lisp_Object char_table, ch, value;
 {
-  int c, i, charset, code1, code2;
+  int c, charset, code1, code2;
   Lisp_Object temp;
 
   CHECK_CHAR_TABLE (char_table, 0);
@@ -2356,7 +2354,6 @@
   else if (STRINGP (seq))
     {
       /* Multi-byte string.  */
-      int len_byte = STRING_BYTES (XSTRING (seq));
       int i_byte;
 
       for (i = 0, i_byte = 0; i < leni;)
@@ -2589,7 +2586,6 @@
   register Lisp_Object ans;
   Lisp_Object args[2];
   struct gcpro gcpro1;
-  Lisp_Object menu;
 
   CHECK_STRING (prompt, 0);
 
@@ -3934,7 +3930,7 @@
 	      n = XVECTOR (h->index)->size & ~ARRAY_MARK_FLAG;
 	      for (bucket = 0; bucket < n; ++bucket)
 		{
-		  Lisp_Object idx, key, value, prev, next;
+		  Lisp_Object idx, prev;
 
 		  /* Follow collision chain, removing entries that
 		     don't survive this garbage collection.  */
@@ -4017,7 +4013,7 @@
 /* Combine two integers X and Y for hashing.  */
 
 #define SXHASH_COMBINE(X, Y)						\
-     ((((unsigned)(X) << 4) + ((unsigned)(X) >> 24) & 0x0fffffff)	\
+     ((((unsigned)(X) << 4) + (((unsigned)(X) >> 24) & 0x0fffffff))	\
       + (unsigned)(Y))