From ada0fa1430b0d618cfe38883c439bcd71d58c787 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Tue, 14 Sep 1999 13:09:25 +0000 Subject: [PATCH] (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). --- src/fns.c | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/src/fns.c b/src/fns.c index 43bb3730697..887e8f8c867 100644 --- a/src/fns.c +++ b/src/fns.c @@ -1993,8 +1993,6 @@ a character set name, or a character code.") (char_table, range) Lisp_Object char_table, range; { - int i; - CHECK_CHAR_TABLE (char_table, 0); if (EQ (range, Qnil)) @@ -2093,7 +2091,7 @@ See also the documentation of make-char.") (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 @@ mapcar1 (leni, vals, fn, seq) 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 @@ is nil.") register Lisp_Object ans; Lisp_Object args[2]; struct gcpro gcpro1; - Lisp_Object menu; CHECK_STRING (prompt, 0); @@ -3934,7 +3930,7 @@ sweep_weak_hash_tables () 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 @@ sweep_weak_hash_tables () /* 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)) -- 2.39.5