comparison src/fns.c @ 25080:46c21258f1ff

(Fgethash): Fix order of variables (patch by gerd). (Fputhash): Ditto. (Fremhash): Ditto.

25079:3a09aae52441

DEFUN ("gethash", Fgethash, Sgethash, 2, 3, 0,
  "Look up KEY in TABLE and return its associated value.\n\
If KEY is not found, return DFLT which defaults to nil.")
  (table, key, dflt)
     Lisp_Object table, key;
{
  struct Lisp_Hash_Table *h = check_hash_table (table);
  int i = hash_lookup (h, key, NULL);
  return i >= 0 ? HASH_VALUE (h, i) : dflt;
}

DEFUN ("puthash", Fputhash, Sputhash, 3, 3, 0,
  "Associate KEY with VALUE is hash table TABLE.\n\
If KEY is already present in table, replace its current value with\n\
VALUE.")
  (table, key, value)
     Lisp_Object table, key, value;
{
  struct Lisp_Hash_Table *h = check_hash_table (table);
  int i;
  unsigned hash;

}


DEFUN ("remhash", Fremhash, Sremhash, 2, 2, 0,
  "Remove KEY from TABLE.")
  (table, key)
     Lisp_Object table, key;
{
  struct Lisp_Hash_Table *h = check_hash_table (table);
  hash_remove (h, key);
  return Qnil;
}

25080:46c21258f1ff

DEFUN ("gethash", Fgethash, Sgethash, 2, 3, 0,
  "Look up KEY in TABLE and return its associated value.\n\
If KEY is not found, return DFLT which defaults to nil.")
  (key, table, dflt)
     Lisp_Object key, table;
{
  struct Lisp_Hash_Table *h = check_hash_table (table);
  int i = hash_lookup (h, key, NULL);
  return i >= 0 ? HASH_VALUE (h, i) : dflt;
}

DEFUN ("puthash", Fputhash, Sputhash, 3, 3, 0,
  "Associate KEY with VALUE is hash table TABLE.\n\
If KEY is already present in table, replace its current value with\n\
VALUE.")
  (key, value, table)
     Lisp_Object key, value, table;
{
  struct Lisp_Hash_Table *h = check_hash_table (table);
  int i;
  unsigned hash;

}


DEFUN ("remhash", Fremhash, Sremhash, 2, 2, 0,
  "Remove KEY from TABLE.")
  (key, table)
     Lisp_Object key, table;
{
  struct Lisp_Hash_Table *h = check_hash_table (table);
  hash_remove (h, key);
  return Qnil;
}