From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Fri, 25 Jan 2008 10:01:15 +0000 (+0000)
Subject: (Fclrhash): Return TABLE.
X-Git-Tag: emacs-pretest-23.0.90~8417
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ccd8f7fe141f55e9ba381633b02a6467df0270e1;p=emacs.git

(Fclrhash): Return TABLE.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 24b69f1a8d1..a6d8cc928d6 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-25  Thien-Thi Nguyen  <ttn@gnuvola.org>
+
+	* fns.c (Fclrhash): Return TABLE.
+
 2008-01-23  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
 	* macterm.c (x_scroll_bar_create): Initialize bar->redraw_needed_p.
diff --git a/src/fns.c b/src/fns.c
index 01c7e583661..a6872e7d5ec 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -5407,12 +5407,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;
 }