diff options
| author | Markus Rost | 1999-07-26 22:20:21 +0000 |
|---|---|---|
| committer | Markus Rost | 1999-07-26 22:20:21 +0000 |
| commit | 1fffe87013887cda137386fb246094eba856014a (patch) | |
| tree | 02ca6b4295f8ae5c6fc9230fb632b430785afa94 /src | |
| parent | 1da3fd719ece6252091bc375b384a910ff0da573 (diff) | |
| download | emacs-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.c | 12 |
1 files changed, 6 insertions, 6 deletions
| @@ -4369,8 +4369,8 @@ DEFUN ("clrhash", Fclrhash, Sclrhash, 1, 1, 0, | |||
| 4369 | DEFUN ("gethash", Fgethash, Sgethash, 2, 3, 0, | 4369 | DEFUN ("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\ |
| 4371 | If KEY is not found, return DFLT which defaults to nil.") | 4371 | If 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\ |
| 4383 | If KEY is already present in table, replace its current value with\n\ | 4383 | If KEY is already present in table, replace its current value with\n\ |
| 4384 | VALUE.") | 4384 | VALUE.") |
| 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 | ||
| 4402 | DEFUN ("remhash", Fremhash, Sremhash, 2, 2, 0, | 4402 | DEFUN ("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); |