Mercurial > emacs
diff src/fns.c @ 25709:ba4e2a641663
(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).
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 14 Sep 1999 13:09:25 +0000 |
| parents | 0e71134aaba2 |
| children | b7aa6ac26872 |
line wrap: on
line diff
--- 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))