From 4ada4a87b460fad6237978b6f8dbb067e1a9908a Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Sat, 26 Jan 2008 17:00:52 +0000 Subject: [PATCH] (Fclrhash): Return TABLE. --- src/ChangeLog | 4 ++++ src/fns.c | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 1c4b08d24d7..eac48d83fbb 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-01-26 Thien-Thi Nguyen + + * fns.c (Fclrhash): Return TABLE. + 2008-01-21 YAMAMOTO Mitsuharu * macterm.c (x_scroll_bar_create): Initialize bar->redraw_needed_p. diff --git a/src/fns.c b/src/fns.c index 3f3cdccc36d..5df8be238df 100644 --- a/src/fns.c +++ b/src/fns.c @@ -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; } -- 2.39.2