changeset 79927:43afc0b27bc1

(Fclrhash): Return TABLE.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Sat, 26 Jan 2008 16:59:43 +0000
parents 2f4668e80fe9
children a6bebc02888e
files src/fns.c
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
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;
 }