diff options
author | Thien-Thi Nguyen <ttn@gnuvola.org> | 2008-01-26 17:00:52 +0000 |
---|---|---|
committer | Thien-Thi Nguyen <ttn@gnuvola.org> | 2008-01-26 17:00:52 +0000 |
commit | 4ada4a87b460fad6237978b6f8dbb067e1a9908a (patch) | |
tree | b9b765350d3ca8afb3bdbb7e96b7d189e7f3d882 | |
parent | a56d9a08d2c0ded6389afd4b252f0f9d6cc4bb73 (diff) | |
download | emacs-4ada4a87b460fad6237978b6f8dbb067e1a9908a.tar.gz |
(Fclrhash): Return TABLE.
-rw-r--r-- | src/ChangeLog | 4 | ||||
-rw-r--r-- | src/fns.c | 5 |
2 files changed, 7 insertions, 2 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 1c4b08d24d7..eac48d83fbb 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2008-01-26 Thien-Thi Nguyen <ttn@gnuvola.org> + + * fns.c (Fclrhash): Return TABLE. + 2008-01-21 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 3f3cdccc36d..5df8be238df 100644 --- a/src/fns.c +++ b/src/fns.c @@ -5406,12 +5406,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; } |