changeset 87961:868797e785eb

(Fclrhash): Return TABLE.
author Thien-Thi Nguyen <ttn@gnuvola.org>
date Fri, 25 Jan 2008 10:00:47 +0000
parents 4693d30bd9c1
children d43dc765359e
files src/fns.c
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/src/fns.c	Fri Jan 25 05:38:31 2008 +0000
+++ b/src/fns.c	Fri Jan 25 10:00:47 2008 +0000
@@ -5407,12 +5407,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;
 }