From 1fffe87013887cda137386fb246094eba856014a Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Mon, 26 Jul 1999 22:20:21 +0000 Subject: [PATCH] (Fgethash): Fix order of variables (patch by gerd). (Fputhash): Ditto. (Fremhash): Ditto. --- src/fns.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/fns.c b/src/fns.c index a9b2d2af9ee..554db983413 100644 --- a/src/fns.c +++ b/src/fns.c @@ -4369,8 +4369,8 @@ DEFUN ("clrhash", Fclrhash, Sclrhash, 1, 1, 0, DEFUN ("gethash", Fgethash, Sgethash, 2, 3, 0, "Look up KEY in TABLE and return its associated value.\n\ If KEY is not found, return DFLT which defaults to nil.") - (table, key, dflt) - Lisp_Object table, key; + (key, table, dflt) + Lisp_Object key, table; { struct Lisp_Hash_Table *h = check_hash_table (table); int i = hash_lookup (h, key, NULL); @@ -4382,8 +4382,8 @@ DEFUN ("puthash", Fputhash, Sputhash, 3, 3, 0, "Associate KEY with VALUE is hash table TABLE.\n\ If KEY is already present in table, replace its current value with\n\ VALUE.") - (table, key, value) - Lisp_Object table, key, value; + (key, value, table) + Lisp_Object key, value, table; { struct Lisp_Hash_Table *h = check_hash_table (table); int i; @@ -4401,8 +4401,8 @@ VALUE.") DEFUN ("remhash", Fremhash, Sremhash, 2, 2, 0, "Remove KEY from TABLE.") - (table, key) - Lisp_Object table, key; + (key, table) + Lisp_Object key, table; { struct Lisp_Hash_Table *h = check_hash_table (table); hash_remove (h, key); -- 2.39.5