# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 933027621 0
# Node ID 46c21258f1ff9c8214bb4daeeaf16c6c80fc7e15
# Parent  3a09aae524418120eb2b98d748d298a72997017c
(Fgethash): Fix order of variables (patch by gerd).
(Fputhash): Ditto.
(Fremhash): Ditto.

diff -r 3a09aae52441 -r 46c21258f1ff src/fns.c
--- a/src/fns.c	Mon Jul 26 21:23:07 1999 +0000
+++ b/src/fns.c	Mon Jul 26 22:20:21 1999 +0000
@@ -4369,8 +4369,8 @@
 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 @@
   "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 @@
 
 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);