diff src/fns.c @ 79927:43afc0b27bc1

(Fclrhash): Return TABLE.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Sat, 26 Jan 2008 16:59:43 +0000
parents 9538ce91bacf
children
line wrap: on
line diff
--- 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;
 }