# HG changeset patch # User Gerd Moellmann # Date 936475869 0 # Node ID f6a59e53dac636988c33adeba90c3b084ef1d54b # Parent d99b8e22ae796435776777ea6a75e4502e19b5a0 (Fmakehash): Exchange optional test and size arguments. diff -r d99b8e22ae79 -r f6a59e53dac6 src/fns.c --- a/src/fns.c Sat Sep 04 11:31:31 1999 +0000 +++ b/src/fns.c Sat Sep 04 20:11:09 1999 +0000 @@ -4311,14 +4311,14 @@ DEFUN ("makehash", Fmakehash, Smakehash, 0, MANY, 0, "Create a new hash table.\n\ -Optional first argument SIZE is a hint to the implementation as\n\ -to how many elements will be put in the table. Default is 65.\n\ -\n\ -Optional second argument TEST specifies how to compare keys in\n\ +Optional first argument TEST specifies how to compare keys in\n\ the table. Predefined tests are `eq', `eql', and `equal'. Default\n\ is `eql'. New tests can be defined with `define-hash-table-test'.\n\ \n\ -Optional third argument WEAK must be one of nil, t, `key',\n\ +Optional second argument SIZE is a hint to the implementation as\n\ +to how many elements will be put in the table. Default is 65.\n\ +\n\ +Optional third argument WEAKNESS must be one of nil, t, `key',\n\ or `value'. Default is nil. Elements of weak hash tables\n\ are removed when their key, value or both are otherwise unreferenced.\n\ \n\ @@ -4340,15 +4340,9 @@ Lisp_Object args2[nargs + 6]; int i, j; - /* Recognize size argument. */ i = j = 0; - if (INTEGERP (args[i])) - { - args2[j++] = QCsize; - args2[j++] = args[i++]; - } - - /* Recognize test argument. */ + + /* Recognize TEST argument. */ if (SYMBOLP (args[i]) && !EQ (args[i], QCrehash_size) && !EQ (args[i], QCrehash_threshold) @@ -4358,7 +4352,14 @@ args2[j++] = args[i++]; } - /* Recognize weakness argument. */ + /* Recognize SIZE argument. */ + if (INTEGERP (args[i])) + { + args2[j++] = QCsize; + args2[j++] = args[i++]; + } + + /* Recognize WEAKNESS argument. */ if (EQ (args[i], Qt) || NILP (args[i]) || EQ (args[i], Qkey)