(Fclrhash): Return TABLE.

This commit is contained in:
Thien-Thi Nguyen 2008-01-26 17:00:52 +00:00
parent a56d9a08d2
commit 4ada4a87b4
2 changed files with 7 additions and 2 deletions

View file

@ -1,3 +1,7 @@
2008-01-26 Thien-Thi Nguyen <ttn@gnuvola.org>
* fns.c (Fclrhash): Return TABLE.
2008-01-21 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
* macterm.c (x_scroll_bar_create): Initialize bar->redraw_needed_p.

View file

@ -5406,12 +5406,13 @@ DEFUN ("hash-table-p", Fhash_table_p, Shash_table_p, 1, 1, 0,
DEFUN ("clrhash", Fclrhash, Sclrhash, 1, 1, 0,
doc: /* Clear hash table TABLE. */)
doc: /* Clear hash table TABLE and return it. */)
(table)
Lisp_Object table;
{
hash_clear (check_hash_table (table));
return Qnil;
/* Be compatible with XEmacs. */
return table;
}