aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorMarkus Rost1999-07-26 22:20:21 +0000
committerMarkus Rost1999-07-26 22:20:21 +0000
commit1fffe87013887cda137386fb246094eba856014a (patch)
tree02ca6b4295f8ae5c6fc9230fb632b430785afa94 /src
parent1da3fd719ece6252091bc375b384a910ff0da573 (diff)
downloademacs-1fffe87013887cda137386fb246094eba856014a.tar.gz
emacs-1fffe87013887cda137386fb246094eba856014a.zip
(Fgethash): Fix order of variables (patch by gerd).
(Fputhash): Ditto. (Fremhash): Ditto.
Diffstat (limited to 'src')
-rw-r--r--src/fns.c12
1 files 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,
4369DEFUN ("gethash", Fgethash, Sgethash, 2, 3, 0, 4369DEFUN ("gethash", Fgethash, Sgethash, 2, 3, 0,
4370 "Look up KEY in TABLE and return its associated value.\n\ 4370 "Look up KEY in TABLE and return its associated value.\n\
4371If KEY is not found, return DFLT which defaults to nil.") 4371If KEY is not found, return DFLT which defaults to nil.")
4372 (table, key, dflt) 4372 (key, table, dflt)
4373 Lisp_Object table, key; 4373 Lisp_Object key, table;
4374{ 4374{
4375 struct Lisp_Hash_Table *h = check_hash_table (table); 4375 struct Lisp_Hash_Table *h = check_hash_table (table);
4376 int i = hash_lookup (h, key, NULL); 4376 int i = hash_lookup (h, key, NULL);
@@ -4382,8 +4382,8 @@ DEFUN ("puthash", Fputhash, Sputhash, 3, 3, 0,
4382 "Associate KEY with VALUE is hash table TABLE.\n\ 4382 "Associate KEY with VALUE is hash table TABLE.\n\
4383If KEY is already present in table, replace its current value with\n\ 4383If KEY is already present in table, replace its current value with\n\
4384VALUE.") 4384VALUE.")
4385 (table, key, value) 4385 (key, value, table)
4386 Lisp_Object table, key, value; 4386 Lisp_Object key, value, table;
4387{ 4387{
4388 struct Lisp_Hash_Table *h = check_hash_table (table); 4388 struct Lisp_Hash_Table *h = check_hash_table (table);
4389 int i; 4389 int i;
@@ -4401,8 +4401,8 @@ VALUE.")
4401 4401
4402DEFUN ("remhash", Fremhash, Sremhash, 2, 2, 0, 4402DEFUN ("remhash", Fremhash, Sremhash, 2, 2, 0,
4403 "Remove KEY from TABLE.") 4403 "Remove KEY from TABLE.")
4404 (table, key) 4404 (key, table)
4405 Lisp_Object table, key; 4405 Lisp_Object key, table;
4406{ 4406{
4407 struct Lisp_Hash_Table *h = check_hash_table (table); 4407 struct Lisp_Hash_Table *h = check_hash_table (table);
4408 hash_remove (h, key); 4408 hash_remove (h, key);