mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 00:51:50 -08:00
Code Issues Projects Releases Wiki Activity

(SXHASH_COMBINE): Add missing parentheses.

Browse source 
(Fchar_table_range, Fset_char_table_default, mapcar1,
Fyes_or_no_p, sweep_weak_hash_tables): Remove unused variable(s).
This commit is contained in:
Gerd Moellmann 1999-09-14 13:09:25 +00:00
parent 5ae040a667
commit ada0fa1430
1 changed files with 3 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/fns.c
View file

@ -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))