# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1201366783 0
# Node ID 43afc0b27bc14cfbf48c2364b874d8f431c1e05c
# Parent  2f4668e80fe91e1aef7f5666edb0e21a66ce5ebb
(Fclrhash): Return TABLE.

diff -r 2f4668e80fe9 -r 43afc0b27bc1 src/fns.c
--- a/src/fns.c	Sat Jan 26 10:40:15 2008 +0000
+++ b/src/fns.c	Sat Jan 26 16:59:43 2008 +0000
@@ -5406,12 +5406,13 @@
 
 
 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;
 }