From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Mon, 26 Jul 1999 22:20:21 +0000 (+0000)
Subject: (Fgethash): Fix order of variables (patch by gerd).
X-Git-Tag: emacs-pretest-21.0.90~7361
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1fffe87013887cda137386fb246094eba856014a;p=emacs.git

(Fgethash): Fix order of variables (patch by gerd).
(Fputhash): Ditto.
(Fremhash): Ditto.
---

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);